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prólogo 


Como continuación a nuestro anterior libro titulado: PROGRAMAS 
EN BASIC PARA LA RESOLUCION DE PROBLEMAS: ANALISIS Y ESTADISTICA, aparece 
hoy este segundo dedicado al ALGEBRA y GEOMETRIA, con un enfoque totalmen 


te análogo al anterior. 


En estos momentos en los que el microordenador personal está 
entrando en muchos hogares, parece conveniente la publicación de textos 
con programas desarrollados, que ayuden al usuario a resolver multitud de 
situaciones concretas. Quisieramos insistir en la idea de que el microorde 
nador sirve para realizar muchas más cosas que los divertidos y variados 
juegos, que con tanta avidez ejecutan nuestros alumnos, y que por tanto, 
se puede utilizar en otras situaciones, que si bien no resultan tan 1údi 
Cas, si pueden ser más provechosas para el estudio, en nuestro caso con- 
creto nos parece que el micro puede ser un poderoso elemento de apoyo pa- 


ra el aprendizaje de las Matemáticas. 


Los temas que en este libro se desarrollan son principalmente 
los correspondientes al Algebra y Geometría de 1%, 2%? y 3% de BUP, asi 
como el COU, si bien se añaden varios programas que no encajan en estos 


niveles siendo propiamente universitarios. 


También nos ha parecido interesante incluir algunos programas 
sobre teoría de numeros, asi por ejemplo, la obtención de números perfec- 
tos pares, números amigos, números de Mersenne, números de Fermat, núme- 


ros pitagóricos, etc. o también programas que resuelven problemas clásicos 


que últimamente no se incluyen en los Cuestionarios y que son de gran inte 
rés, asi por ejemplo: resolución de ecuaciones diofánticas, el cálculo del 
exponente de un número primo en m! , mediante la regla de Legendre, obten- 
ción de la última cifra de una potencia como aplicación de los restos po- 


tenciales, etc. 


Ahora bien, la mayoría de los programas vienen a resolver las 
situaciones más frecuentes que se plantean en el Algebra y la Geometría en 


los niveles correspondientes a las Enseñanzas Medias. 


Finalmente deseamos agradecer desde estas páginas, la buena aco 
gida que el público en general, está dispensando a nuestro anterior libro 


y desear que esta continuación siga los pasos de su predecesor. 


El autor 


advertencias de interés 


Los programas de este libro han sido probados y ejecuta 
dos en un microordenador NEW BRAIN, pero todos ellos pueden ser rea 


lizados, en Cuanto a su extensión, en cualquier micro. 


Hemos procurado utilizar un BASIC común a todos los mi- 
cros, con el fin de que estos programas puedan ser ejecutados en 
cualquier microordenador de los existentes actualmente en el merca 
do, pero es posible, que en algunos programas sea necesario, intro 
ducir algunas modificaciones con arreglo al BASIC concreto de su 


micro. 


Por ello vamos a exponer a continuación algunas de estas 
ideas. 


1.- LET: Hoy en dia es muy frecuente en Casi todos los microordena- 
dores, poder hacer asignación de variables en la forma: 
120 A= B*C 
pero todavía existen algunos micros, para los que es necesario 
escribir: "120 LET A= B*C 


2.- ON GOTO : Si ¡por ejemplo en ouuna linea figura: 
50 ON L GOTO 100,200,300 
quiere decir que, según L sea igual a 1, 2 Ó 3, se transferirá 
la ejecución a las lineas 100, 200 Ó 300. Como algunos micros 
no permiten esta instrucción de bifurcación múltiple, se puede 
cambiar por: 50 IF L=1 THEN GOTO 100 
52 IF L=2 THEN GOTO 200 
54 IF L=3 THEN GOTO 300 


3.- IF THEN : Algunos ordenadores solo admiten después de IF 
THEN, poner GOTO n*de linea, en cambio alaunos permiten hacer: 
60 IF B=1 THEN PRINT A 
o también 80 IF A=3 THEN L=A*B 
En estos programas se ha utilizado en escasas ocasiones esta úl 
tima posibilidad, si su aparato no lo admite, modifíquelo con 


arreglo a lo expuesto. 


4.- En algunos resultados de los programas geométricos aparecen ex- 
presiones de la forma: 5x - -3y = 5, O bien 2x + - 3y = 2, etc 
En todos estos casos aplicaremos la regla de los signos, de mane 


ra que: $++-u>+8, A A a 


5.- Se ha procurado que los programas sean cortos y sencillos, aho 
ra bien se podrían mejorar desde el punto de vista informático 


pero probablemente, perderían claridad desde el punto de vista 


matemático. 


6.- Intencionadamente, no se ha incluido ningún programa sobre grá 
ficos, dado que las instrucciones sobre gráficos, difieren mu- 


cho de unos ordenadores a otros. 


7.- En general, no se ha incluido ninguna sentencia sobre el "borra 
do de la pantalla", para que sea el usuario el que en cada caso 


utilize esa posibilidad a su gustu. 


8.- Si lo desea puede omitir todas las lineas que empiezan por REM 
ya que unicamente sirven para proporcionar información sobre el 


programa , pero el micro no las lee y además ocupan memoria. 


9.- En caso de que, tras escribir cuidadosamente el programa y al 
ejecutar este, les proporcione mensaje de error, o resultados 
sensiblemente distintos, revise nuevamente, linea a linea, ca- 
rácter a carácter, su listado y el del libro, revise las adver 
tencias anteriores, tenga cuidado en no confundir cero con O, 

1 con 1, 2 con Z, 5 con S, y U con V., después de todo esto 
el programa deberá funcionar. Si a pesar de todo, el programa 
no "funciona", le aconsejamos que: lo deje de momento, para con 
tinuar con ello al cabo de unas horas, o bien lo revise con 
otra persona, o lo ponga en manos de alguien que sea Capaz de 
detectar el fallo, pues generalmente será muy fácil, pero a ve 
ces, pueden ser extraordinariamente sutiles. Únicamente con mu 
cha experiencia, habilidad y conocimiento profundo del BASIC de 


su micro será posible detectar estas sutilezas. 


Ahora bien, esperamos que estas últimas advertencias no le ocurran 
prácticamente nunca, y deseamos que pueda Vd disfrutar de su micro 


sacándole todo el partido posible. 


a 
so E 
SS 
2 Ss 
e K 
ab 


CAMBIO DE BASE DE SISTEMA DE NUMERACION 


introducción: 


El presente programa sirve para pasar un número escrito en un sis- 
tema de numeración, a otro sistema de numeración. 

El criterio seguido, es utilizar los dígitos 0,1,2,3,4,5,6,7,8,9, y 
las letras A,B,C,D,..., que representan respectivamente los números 10,11, 
12,13, etc. 
Por ello limitamos la base a 35, por no tener más símbolos para los respec- 
tivos dígitos. 
En la linea 199 se inicia el paso del número de una base By a la base deci 


mal y en la linea 279 se inicia el paso del número escrito en sistema deci 


mal al sistema de base B> 


listado del programa: 


10 REM IRSA 
20 REM 


30 REM CAMBIO DE BASE DE 

40 REM 

50 REM SISTEMA DE NUMERACION 

60 REM 

70 REM IRSRIRSSOSIOIOIRIIOIIOIOIROIIOIIIIIISIIRIIRIRRRIIOIRIIOIOIRRIRIRIRRIOIIIIIIIIA 
100 PRINT 


110 B$="0123456789ABCDEFGHIJKLMNOPOQRSTUVXYZ" 

120 PRINT "CAMBIO DE BASE DE SISTEMA DE NUMERACION (base máxima=35)" 
130 PRINT 

140 PRINT "NUMERO QUE DESEA CAMBIAR DE BASE N =*; 
150 INPUT N$ 

160 PRINT "ESCRITO EN BASE "; 


170 INPUT Bl 
180 PRINT "PARA PASARLO A LA BASE "; 


190 INPUT B2 

199 REM - PASO DE BASE B1 A BASE 10 - 
200 L=LEN(N$) 

210 A=0 

220 FOR J=1 TO L 


10 SISTEMAS DE NUMERACION 


230 FOR I=1 TO Bi 

240 IF MID$(B$,1,1)<>MID$(N$,J,1) THEN GOTO 260 
250 A=A+INT((1-1)%X(B1” (L-J))+.5) 

260 NEXT I 

270 NEXT J 

279 REM - PASO DE BASE 10 A BASE B2 - 

280 MS$=" " 

290 C=INT(B2X*((A/B2)-INT(A/B2))+1.5) 

300 M$=MIDS$(B$,C,1)+MS$ 

310 A=INT(A/B2) 

320 IF A>0 THEN GOTO 290 0 

329 REM - SALIDA DEL RESULTADO - 

330 PRINT 

340 PRINT N$3" EN BASE "3B13" ES IGUAL A: "3M*$;"EN BASE *;3B2 
350 END 


ejercicios resueltos: 


E; Pasar el número 213456345 , a base 12. 
SOLUCION: 
CAMBIO DE BASE DE SISTEMA DE NUMERACION (base máxima=35) 
NUMERO QUE DESEA CAMBIAR DE BASE N =? 213456345 
ESCRITO EN BASE ? 7? 
PARA PASARLO A LA BASE ? 12 


213456345 EN BASE 7? ES IGUAL A: 4348263 EN BASE 12 


2. Pasar el número A123BCD (¡6 al sistema decimal. 
SOLUCION: 


CAMBIO DE BASE DE SISTEMA DE NUMERACION (base máxima=35) 
NUMERO QUE DESEA CAMBIAR DE BASE N =? A1Z23BCD 

ESCRITO EN BASE ? 16 

PARA PASARLO A LA BASE ? 10 


A123BCD EN BASE 1lé ES IGUAL A: 168967117 EN BASE 10 


3. Pasar el número 123AB3456C78 (¡y al sistema de base 8. 
SOLUCION: 


CAMBIO DE BASE DE SISTEMA DE NUMERACION (base máxima=35) 
NUMERO QUE DESEA CAMBIAR DE BASE N =? 123AB3456C78 
ESCRITO EN BASE ? 14 

PARA PASARLO A LA BASE ? 8 


123AB3456C78 EN BASE 14 ES IGUAL A: 104366335276000 EN BASE 8 
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4. Pasar el número 1111010101010100010100010101 |, al sistema decimal. 
SOLUCION: 


CAMBIO DE BASE DE SISTEMA DE NUMERACION (base maxima=35) 
NUMERO QUE DESEA CAMBIAR DE BASE N =? 1111010101010100010100010101 


ESCRITO EN BASE ? 2 
PARA PASARLO A LA BASE ? 10 


1111010101010100010100010101 EN BASE 2 ES IGUAL A: 257246485 EN BASE 10 


5. Pasar el número 257246485 escrito en el sistema decimal, al siste- 


ma binario. 
SOLUCION: 


CAMBIO DE BASE DE SISTEMA DE NUMERACION (base máxima=35) 
NUMERO QUE DESEA CAMBIAR DE BASE N =? 257246485 


ESCRITO EN BASE ”? 10 
PARA PASARLO A LA BASE ? 2 


2572464835 EN BASE 10 ES IGUAL A: 1111010101010100010100010101 EN BASE 2 


OPERACIONES EN CUALQUIER SISTEMA DE 
NUMERACION 


introducción: 


Este programa sirve para efectuar las operaciones suma diferencia, 


producto y cociente de dos números escritos en cualquier sistema de numera 


ción. 


Para ello, se pasan los números al sistema decimal (linea 559),se ope 


ran en el sistema decimal y posteriormente se pasan a la base dada (linea 
659). 


listado del programa: 


10 REM IRRROARICIOIIRIRIIIIOIIOIIIIOIIIOIIIIIOIIIIIR 
20 REM 

30 REM SUMA, DIFERENCIA, PRODUCTO Y 

40 REM 

50 REM COCIENTE DE DOS NUMEROS EN 

60 REM 

70 REM CUALQUIER SISTEMA DE NUMERACION 
80 REM 

9 O REM ISORA 
:00 PRINT 

110 B$="0123456789ABCDEFGHIJKLMNOPQRSTUVXYZ" 

120 PRINT "EN QUE BASE DESEA OPERAR (base máxima=35)"; 

130 INPUT B1 

140 PRINT "OPERACIONES QUE PUEDE REALIZAR: " 

150 PRINT 

160 PRINT "1.- SUMA DE DOS NUMEROS P+Q" 

170 PRINT *“2.- DIFERENCIA DE DOS NUMEROS P-Q" 

180 PRINT "3.- PRODUCTO DE DOS NUMEROS PXQ" 

190 PRINT *"4.- DIVISION APROXIMADA DE DOS NUMEROS P/Q" 

200 PRINT 

210 PRINT "SEGUN LA OPCION ELEGIDA PULSE EL NUMERO QUE LE PRECEDE"; 

220 INPUT O 

230 PRINT "ESCRIBA UNO DE LOS NUMEROS P ="; 

240 INPUT Ps 

250 N$=Ps$ 

260 GOSUB 559 

270 P=A 

280 PRINT "ESCRIBA OTRO DE LOS NUMEROS AQ ="; 

290 INPUT Q$ 
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300 N$=0$ 

310 GOSUB 559 

320 Q=A 

330 ON O GOTO 340,390,460,510 

340 S=P+Q 

350 A=S 

360 GOSUB 659 

370 PRINT "EL RESULTADO PEDIDO ES "¡M$;"EN BASE”;B1 
380 STOP 

390 IF P>Q GOTO 410 

400 PRINT "EL MINUENDO HA DE SER MAYOR O IGUAL QUE EL SUSTRAENDO" 
410 R=P-Q 

420 A=R 

430 GOSUB 459 

440 PRINT "EL RESULTADO PEDIDO ES ";¡M$;"EN BASE";B1 
450 STOP 

460 M=PXQ 

470 A=M 

480 GOSUB 659 

490 PRINT "EL RESULTADO PEDIDO ES ";M*$;"EN BASE";B1 
500 STOP 

510 D=P/Q 

520 A=D 

530 GOSUB 659 

540 PRINT "EL RESULTADO PEDIDO ES ";¡M$;"EN BASE";B1 
550 STOP 

559 REM - PASO DE BASE B1 A BASE 10 - 

560 L=LEN (N$) 

570 A=0 

580 FOR J=1 TO L 

590 FOR I=1 TO Bi 

600 IF MIDS(B$,I,1)<>MIDS(N$,J,1) THEN GOTO 620 

610 A=A+INT((I-1)X(B1" (L-J))+.5) 

620 NEXT 1 ; 

630 NEXT J 

640 PRINT 

650 RETURN 

659 REM - PASO DE BASE 10 A BASE Bi - 

660 Má=" " 

670 C=INT(B1X((A/B1)-INT(A/B1))+1.5) 

680 M$=MIDS(B$,C.1)+MS$ 

690 A=INT(A/B1) 

700 IF A>O THEN GOTO 670 

710 RETURN 

720 END 


ejercicios resueltos: 


1. Hallar el resultado de 25608356 (y + 93270L o y expresarlo en base 9 
SOLUCION: 


EN QUE BASE DESEA OPERAR (base máxima=35)7? 9 
OPERACIONES QUE PUEDE REALIZAR: 


1.- SUMA DE DOS NUMEROS P+Q 
2.- DIFERENCIA DE DOS NUMEROS P-8 
.7 PRODUCTO DE DOS NUMEROS PX 
4.- DIVISION APROXIMADA DE DOS NUMEROS P/Q 


14 SISTEMAS DE NUMERACION 


SEGUN LA OPCION ELEGIDA PULSE EL NUMERO QUE LE PRECEDE? 1 
ESCRIBA UNO DE LOS NUMEROS P =”? 25608356 


ESCRIBA OTRO DE LOS NUMEROS (Q =7? 654201 


EL RESULTADO PEDIDO ES 26364157 EN BASE 9 


ye Calcular AL23BCT8 ¿34 - 65BCA9 (14 , €Xpresar el resultado en la 
misma base. 


SOLUCION : 


SEGUN LA OPCION ELEGIDA PULSE EL NUMERO QUE LE PRECEDE? 2 
ESCRIBA UNO DE LOS NUMEROS P =”? A122BC78 
ESCRIBA OTRO DE LOS NUMEROS (QA =7? é5BCA9 


EL RESULTADO PEDIDO ES AO9BDDAD EN BASE 14 


3. Calcular 167BD6 23AB 
ma base. 


SOLUCION: 


(16 ” (16' expresar el resultado en la mis- 


SEGUN LA OPCION ELEGIDA PULSE EL NUMERO QUE LE PRECEDE? 3 
ESCRIBA UNO DE LOS NUMEROS P =? 167BD6 


ESCRIBA OTRO DE LOS NUMEROS Q =7? 23AB 


EL RESULTADO PEDIDO ES 321F2F9F2 EN BASE 16 


4. Calcular 4262406 ,., : 3124 , , €Xpresar el resultado en base 7. 
SOLUCION: 


SEGUN LA OPCION ELEGIDA PULSE EL NUMERO QUE LE PRECEDE? 4 
ESCRIBA UNO DE LOS NUMEROS P =? 4262406 


ESCRIBA OTRO DE LOS NUMEROS Q =? 3124 


EL RESULTADO PEDIDO ES 1245 EN BASE 7 


ECUACIONES DIOFANTICAS DEL TIPO: Ax + By = C 


introducción: 


Este programa sirve para resolver ecuaciones diofánticas del tipo 
lineal: 
Ax +By=C O Ax-By=C 
Para ello se calcula el m.c.d.(A,B) y si el m.c.d.(A,B) no divide 
a C la ecuación no tiene solución. En caso contrario se busca por tanteo 


una solución y se pasa a la solución general. 


listado del programa: 


10 REM IRRRRRROOROOIORRRRRRRRRRRRRRRRRRORORORERDARRORRRROARRRORRRODRRRRROARRARDERORRDRORDRAR 
20 REM 


30 REM RESOLUCION DE ECUACIONES 

40 REM 

50 REM DIOFANTICAS DEL TIPO LINEAL 
60 REM 


70 REM IRRRRRIRROIOIORIRRRORRIRIRRRRRRRRRRRRORRRORRRRORRRIRRRRRRRRRDORRRRRRRRRRODRRRAREARAR 
100 PRINT 

110 PRINT "RESOLUCION DE ECUACIONES DIOFANTICAS DEL TIPO LINEAL :” 
120 PRINT "A x +B y = C o bien Ax - By=C” 

130 PRINT 

140 PRINT "COEFICIENTE DE x, A ="; 

150 INPUT A 

160 Al=A 

170 PRINT "COEFICIENTE DE y, B="; 

180 INPUT B 

190 Bi=B 

200 PRINT "TERMINO INDEPENDIENTE, C ="; 

210 INPUT C 

219 REM - CALCULO DEL M.C.D(A,B) - 

220 A=ABS(A) 

230 B=ABS(B) 

240 R=A-BXINT(A/B) 

250 IF R=0 THEN 290 

260 A=B 

270 B=R 

280 GOTO 240 

289 REM - DIVIDIMOS LOS COEFICIENTES DE LA ECUACION POR EL M.C.D.(A,B) - 
290 A2=A1/B 


16 ECUACIONES DIOFANTICAS 


300 B2=B1/B 

310 C2=C/B 

319 REM - SI EL M.C.D.(A.B) NO DIVIDE A C, LA ECUACION NO TIENE SOLUCION - 
320 IF C2<>INT(C2) THEN GOTO 500 

329 REM - SE BUSCA UNA SOLUCION INICIAL - 

330 Y=0 

340 X=(C2-B2*Y)/A2 

350 IF X=INT(X) THEN GOTO 380 
360 Y=Y+1 

370 GOTO 340 

380 IF X<0 THEN GOTO 500 

390 PRINT 

400 PRINT "SOLUCION INICIAL: 
410 PRINT * Y =" 
420 PRINT 

430 IF B2<0 THEN GOTO 470 
440 PRINT "SOLUCION GENERAL: 
450 PRINT ” Y =" 
460 STOP 

470 PRINT "SOLUCION GENERAL: X="; 
480 PRINT " Y ="; 
490 STOP 

500 PRINT 

510 PRINT 

520 PRINT "LA ECUACION NO TIENE SOLUCION EN N (NUMEROS NATURALES)" 
530 END 


x 
" 
z 


azi “AT 
+ JAZP ORT" 


x 
Ú 
Xx 


304" ABS(B2)3 "XT" 
Ue" ¡AZ "XT" 


ejercicios resueltos: 


1. Resolver la ecuación diofántica : 97x + 32y = 65 
SOLUCION: 


RESOLUCION DE ECUACION DIOFANTICAS DEL TIPO LINEAL : 


A x +4B y = C o bien Ax -By=C 
COEFICIENTE DE x, A =? 97 
COEFICIENTE DE y, B =? 32 


TERMINO INDEPENDIENTE, C =? 65 


LA ECUACION NO TIENE SOLUCION EN N (NUMEROS NATURALES) 


2. Un colegio ha adquirido cuadernos de dos clases, unos a 75 pts 
da uno y otros a 127 pts, abonando por el importe total 18.623 pts. 
¿Cuantos cuadernos de cada clase se han comprado?. 
SOLUCION: 


RESOLUCION DE ECUACION DIOFANTICAS DEL TIPO LINEAL : 


A x +B y = C o bien Ax -By=C 
COEFICIENTE DE x, A =? 75 
COEFICIENTE DE y, B =? 127 


TERMINO INDEPENDIENTE, C =? 18623 


J.R.VIZMANOS 


SOLUCION INICIAL: X 123 


74 


SOLUCION GENERAL: => 123 - 127 xT 
Y = 794 + 75 XT 


3. Resolver en el conjunto de los números naturales la ecuación: 


51x - 129y = 33 
SOLUCION: 


RESOLUCION DE ECUACION DIOFANTICAS DEL TIPO LINEAL : 
A x +B y=cC o bien Ax -By=cC 


COEFICIENTE DE x. A 
COEFICIENTE DE y, B =? -129 
TERMINO INDEPENDIENTE, C 


SOLUCION INICIAL: X= 31 
y = 12 


SOLUCION GENERAL: X = 31 + 43 XT 
Y = 12 + 17 XT 


ECUACIONES DIOFANTICAS DEL TIPO: x - y =a 


introducción: 


El presente programa sirve para resolver ecuaciones diofánticas 


del tipo: E A 


2 
Como, x2 - y (x + y) (x - y) =a por ello se descompone 
a, en un producto de números naturales sean m y n, entonces se tiene que 


una solución es: 


x (m + n) /2 


y = (m - n) 7/2 
siempre que x e y sean números naturales. 


listado del programa: 


10 REM 3440484020020 


20 REM 

30 REM RESOLUCION DE ECUACIONES 

40 REM 

50 REM DIOFANTICAS DEL TIPO X*2 - Y2= A 
60 REM 


70 REM IRRADIA 
100 PRINT 
110 PRINT "RESOLUCION DE ECUACION DIOFANTICAS DEL TIPO AL = Y02 = A” 
120 PRINT 
130 PRINT "TERMINO INDEPENDIENTE A ="; 
140 INPUT A 
150 P=INT(SQGR(A)) 
159 REM - DESCOMPOSICION DE A EN PRODUCTO DE NATURALES - 
160 FOR M=P TO A 
170 FOR N=1i TO P 
180 IF A <>MXN THEN GOTO 250 
190 X=(M+N)/2 
200 Y=(M-N)/2 
210 IF INT(X)<>X OR INT(Y)<>Y THEN GOTO 250 
220 PRINT 
230 PRINT "SOLUCION: X ="3X 
Y 3Y 


240 PRINT ” 
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250 NEXT N 
260 NEXT M 
270 END 


ejercicios resueltos: 


1. Resolver la ecuación diofántica xXx” - y 
SOLUCION 


RESOLUCION DE ECUACION DIOFANTICAS DEL TIPO x"2 


TERMINO INDEPENDIENTE A =? 72 


SOLUCION: x= 9 
Y=3 
SOLUCION: X= 11 
Y =7 
SOLUCION: x= 19 
Y = 17 

Ze Resolver la ecuación diofántica x? - y 


SOLUCION: 


TERMINO INDEPENDIENTE A =? 17 


SOLUCION: x=9 


3. Resolver la ecuación diofántica x? - y? 


SOLUCION: 


TERMINO INDEPENDIENTE A =? 340 


SOLUCION: x= 19 SOLUCION: 
Y =1 

SOLUCION: X= 21 SOLUCION: 
Y =9 

SOLUCION: x= 23 SOLUCION: 
Y = 13 


x 


37 


360 


= 47 
= 43 


19 


ECUACIONES DIOFANTICAS DEL TIPO: x' + y =7 


o. . y; > 
introducción: 
Este programa sirve para resolver ecuaciones diofánticas del tipo 
pitagórico: > > 2 
XO+y =_2z 


El programa solicita del usuario hasta que valor N, desea calcular 


las raices. 
En la linea 210 se inicia la formación de las ternas pitagóricas 


desde X=3 hasta N, siendo N, también el límite para la raiz Y. El va- 
lor de Z se obtiene por el teorema de Pitágoras, por tanto, el valor de 


Z puede ser mayor que N. 


listado del programa: 


10 REM IRRRSRRIRSRROORIORIOORRORIRARIOIAIRIORISOIIOIOIIIIIIIIOIIIOIOIIOIOIIIIIOIIOIOIIIIIIIIIIOIIA 
20 REM 

30 REM RESOLUCION DE LA ECUACION 

40 REM 

50 REM PITAGORICA ASE ENIAD A ZA2 

60 REM 

70 REM IRRRRRRRRRRRRRRRARRRRRRRRRORORDRREARRRARRDORRORADOROARODORDORDEDRRRRRRRERRRRDORCOAR 
100 PRINT 

110 PRINT "RESOLUCION DE LA ECUACION DIOFANTICA PITAGORICA: X"2 + Y"2 = 22" 
120 PRINT 

130 PRINT 

140 PRINT "HASTA QUE NUMERO DESEA HALLAR SOLUCIONES N ="; 

150 INPUT N 

160 PRINT 

170 PRINT 

180 PRINT "X","Y","z" 

EEE 

200 Z=INT(SQR(C)+.5) 

210 FOR X=3 TO N 

220 FOR Y=X+1 TON 
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230 C=XXX+YXAY 

240 Z=INT(SOR(C)+.5) 

250 IF ZX*Z<>C THEN GOTO 270 
260 PRINT X,Y,Z 

270 NEXT Y 

280 NEXT X 

290 END 


ejercicios resueltos: 


¡A Resolver la ecuación x* + y? = 2? hasta N = 50. 


SOLUCION: 


RESOLUCION DE LA ECUACION DIOFANTICA PITAGORICA: X"2 + Y*2 = Z72 


HASTA QUE NUMERO DESEA HALLAR SOLUCIONES N =? 50 


Xx Y z 
IAICAIRAIOIOARIRRRIORIRRIRRIRRRIRRRIRRIRRRIRORRRRC: 
3 4 5 
5 12 13 
6 8 10 
? 24 25 
8 15 17 
9 12 15 
9 40 41 
10 24 26 
¿El 16 20 
12 35 37 
14 48 50 
15 20 25 
15 36 39 
16 30 34 
18 24 30 
20 21 29 
20 48 52 
21 28 35 
24 32 40 
24 45 51 
27? 36 45 
28 45 53 
30 40 50 
33 44 55 
34 48 60 


40 42 58 


NUMEROS PITAGORICOS CONSECUTIVOS 


introducción: 


Este breve programa sirve para calcular números pitagóricos conse- 


cutivos A,B,H. Tales que B=A+1 y y? = Ñ? + p? 


listado del programa: 


10 REM IRONIA 
20 REM 


3O REM FORMACION DE NUMEROS PITAGORICOS 
40 REM 

50 REM CONSECUTIVOS MENORES QUE N 

60 REM 


70 REM IRSA 
100 PRINT 

110 PRINT "NUMEROS PITAGORICOS CONSECUTIVOS HASTA EL NUMERO N ="*";3 
120 INPUT N 

130 PRINT 

140 PRINT "A", "B","H" 

150 PRINT "MRRRRRRRORRARRRRRRRRRRRRRRRRRRRRRRRRA" 

160 PRINT 

170 FOR A=3 TO N 

180 B=A+1 

190 C=AXA+BXB 

200 H=INT(SOQR (C)+.5) 

210 IF HXH<>C THEN GOTO 230 

220 PRINT A,B,H 

230 NEXT A 

240 END 


ejercicios resueltos: 


1. Formar números pitagóricos consecutivos menores que 1000. 
SOLUCION: 
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NUMEROS PITAGORICOS CONSECUTIVOS HASTA EL NUMERO N =? 10000 


A B H 
FIORE 


3 4 5 
20 21 29 
119 120 169 
696 697 985 


TERNAS PITAGORICAS 


introducción: 


un 


Este programa sirve para calcular ternas pitagóricas menores que 
número dado N. 


Se inicia para A=3, ya que no existe ninguna terna pitagórica para 


A=1 y A=2 y se prueba hasta A=N. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
2530 


REM IRRADIA 
REM 
REM FORMACION DE NUMEROS PITAGORICOS 
REM 
REM MENORES QUE N 
REM 
REM IRRADIA 
PRINT 
PRINT "NUMEROS PITAGORICOS HASTA EL NUMERO N ="; 
INPUT N 
PRINT 
PRINT "A","B","H” 
PRINT  "RRRRRRRORRRARRORARDORERDRRRARDAREODACORDRAR * 
PRINT 
FOR A=3 TO N 
FOR B=A+1 TO N 
C=AXA+BXB 
H=INT (SQR(C)+.5) 
IF HXH<>C THEN GOTO 230 
PRINT A,B,H 
NEXT B 
NEXT A 
END 


ejercicios resueltos: 


1. Formar ternas pitagóricas (A,B,H) tales que A y B sean < 100. 


SOLUCION 
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NUMEROS PITAGORICOS HASTA EL NUMERO N =? 100 


A 


H 


FORROS 


5 
13 
10 
25 
17 
15 
41 
26 
61 
20 
37 
85 
so 
25 
39 
34 
65 
30 
82 
29 
52 
101 
35 
75 
40 
51 
74 
65 
45 
53 
100 
50 
78 
68 
55 
65 
91 
60 
85 
65 
89 
58 
es 
104 
70 
75 
73 
80 
102 
85 
90 
106 
95 
87 
100 
109 
105 


65 
66 
69 
72 
75 
30 


72 
28 
92 
96 
100 
84 


97 

110 
115 
120 
125 
116 


DESCOMPOSICION DE UN NUMERO EN FACTORES 
PRIMOS 


introducción: 


res 


la 


El presente programa permite realizar la descomposición en facto- 
primos de un número cualquiera. 
Asimismo, cuando el número no tiene más divisores que el número y 


unidad, imprime el mensaje de que el número es primo. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


REM ISR 
REM 


REM DESCOMPOSICION DE UN NUMERO 
REM 

REM EN FACTORES PRIMOS 

REM 


REM ISR 
PRINT 

PRINT "NUMERO QUE SE DESEA DESCOMPONER EN FACTORES PRIMOS N ="; 
INPUT N 

PRINT 

N1i=N 

F=2 

IF F>SQR(N) THEN 260 

IF INT(N/F)<>N/F THEN 210 

PRINT F; 

N=N/F 

GOTO 160 

IF F=2 THEN 240 

F=F+2 

GOTO 160 

F=3 

GOTO 160 

PRINT N; 

IF N1>N THEN 300 

PRINT "ES UN NUMERO PRIMO" 


GOTO 310 
PRINT " SON LOS FACTORES DE”;N1 
END 
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ejercicios resueltos: 


1. Descomponer en factores primos el número 129600 
SOLUCION: 


NUMERO QUE SE DESEA DESCOMPONER EN FACTORES PRIMOS N =? 129600 


2 393 2 2.223 1 3- 3:3- 9. 5 SON LOS FACTORES DE 129600 


A Descomponer en factores primos el número 514229 
SOLUCION: 


NUMERO QUE SE DESEA DESCOMPONER EN FACTORES PRIMOS N =? 514229 


514229 ES UN NUMERO PRIMO 


3. Descomponer en factores primos el número 2342536 
SOLUCION : 


NUMERO QUE SE DESEA DESCOMPONER EN FACTORES PRIMOS N =? 2342536 


2 2 2 7 59 72709 SON LOS FACTORES DE 2342536 


4. Descomponer en factores primos el número 67895123 
SOLUCION: 


NUMERO QUE SE DESEA DESCOMPONER EN FACTORES PRIMOS N =? 67895123 


67895123 ES UN NUMERO PRIMO 


M.C.D. Y M.C.M. DE DOS NUMEROS 


introducción: 


El presente programa calcula mediante el algoritmo de Euclides el 


m.c.d. de dos números A y B. 


El programa permite conocer también el valor del m.c.m. (A,B). 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 


REM SRA 
REM 


REM MAXIMO COMUN DIVISOR Y 

REM 

REM MINIMO COmMmuUun MULTIPLO DE 

REM 

REM DOS NUMEROS 

REM 

REM IRRRRRRRRRIRRIOIOOIIIIIIIOIIIIRIIRIIRIRIRIIOIIIOIIOIOOOOA: 


PRINT 

PRINT "INTRODUZCA LOS DOS NUMEROS SEPARADOS POR UNA COMA" 
PRINT 

INPUT A,B 

P=AXB 

R=A-BXINT(A/B) 

IF R=0 THEN 200 

A=B 

B=R 

GOTO 150 

PRINT 

PRINT "M.C.D. (A,B) =";3B 
M=P/B 

PRINT "M.C.M. (A,B) ="3M 
PRINT 

PRINT 

GOTO 110 

END 


J.R.VIZMANOS 29 


ejercicios resueltos: 


¡e Calcular el m.c.d. y m.c.m. de 1234 y 360 
SOLUCION: 


INTRODUZCA LOS DOS NUMEROS SEPARADOS POR UNA COMA 


? 1234, 360 


M.C.D. (AB) = 2 
M.C.M. (A,B) 222120 


PA Calcular el m.c.d. y m.c.m. de 32455 y 1024 
SOLUCION: 


INTRODUZCA LOS DOS NUMEROS SEPARADOS POR UNA COMA 
? 32455,1024 


1 
33233920 


M.C.D. (A,B) 
M.C.M. (A,B) 


3. Calcular el m.c.d. y m.c.m. de 85 y 31365 
SOLUCION: 


INTRODUZCA LOS DOS NUMEROS SEPARADOS POR UNA COMA 
? 85, 31365 


M.C.D. (A,B) = 85 
M.C.M. (A,B) = 31365 


M.C.D. Y M.C.M. DE TRES NUMEROS 


introducción: 


El presente programa sirve para calcular el m.c.d. de tres núme- 


ros A,B y C. 


En la linea 269 se inicia una subrutina para el cálculo del m.c.d. 


de dos números. 


El programa también cálcula el m.c.m. de los tres números. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
269 


270 


280 


REM ISSO III 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


MAXIMO COMUN DIVISOR Y 


MINIMO COMUN MULTIPLO DE 


TRES NUMEROS 


REM IRRADIA 


PRINT 
PRINT 
PRINT 
INPUT 
x=A 
Y=B 
P=AXB 
GOSUB 
M=P / Y 
x=C 
GOSUB 
PRINT 
X=M 
Y=C 
GOSUB 
PRINT 
END 
REM - 


"INTRODUZCA LOS TRES NUMEROS SEPARADOS POR UNA COMA" 
"ORDENADOS DE MENOR A MAYOR” 
A,B,C 


269 


269 
"M.C.D.(*3A73"."5B53","5C05")="3Y 


269 
"M.C.M.("5A53"."53B3","53C05")="32Z 


SUBRUTINA PARA EL CALCULO DEL M.C.D. DE DOS NUMEROS - 


Q=INT (X/Y) 


R=X-QY 
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290 IF R=0 THEN 340 
300 X=Y 

310 Y=R 

"120 Z=MXC/Y 

330 GOTO 270 

340 RETURN 


ejercicios resueltos: 


de Calcular el m.c.d. y m.c.m. de los números 1024, 360 y 600 
SOLUCION: 


INTRODUZCA LOS TRES NUMEROS SEPARADOS POR UNA COMA 
ORDENADOS DE MENOR A MAYOR 


? 360, 600, 1024 
M.C.D.( 360 , 600 , 1024 )= 8 
M.C.M.( 360 , 600 , 1024 )= 230400 


Ea Calcular el m.c.d. y m.c.m. de los números 13, 71 y 26 
SOLUCION: 


INTRODUZCA LOS TRES NUMEROS SEPARADOS POR UNA COMA 
ORDENADOS DE MENOR A MAYOR : 


2 13, 26, 71 
M.C.D.( 13, 26, 71 )= 1 
M.C.M.( (13 , 26 , 71 )= 1846 


a A el m.c.d. y m.c.m. de los números 125, 750 y 1500 
SOLUCION: 


INTRODUZCA LOS TRES NUMEROS SEPARADOS POR UNA COMA 
ORDENADOS DE MENOR A MAYOR 

? 125, 750, 1500 

M.C.D.1 125 , 750 , 1500 )= 125 

M.C.M.(1 125 , 750 , 1500 )= 1500 


LISTA DE NUMEROS PRIMOS 


introducción: 


Este breve programa sirve para cálcular una lista de números pri 
mos hasta uno dado. 


El procedimiento es parecido a como Eratóstenes realizo su cele- 


bre criba. 


listado del programa: 


10 REM IRRRRIRRORRIOROROOROOORIOORRIOODORIOOOORRIOIOIOORICIORARORICOIACAIIIIA 
20 REM 


30 REM LISTA DE NUMEROS PRIMOS 
40 REM 

SO REM MENORES QUE OTRO DADO 
60 REM 


70 REM IRRRRRIORAIDORIRORRORRICOROOIOORRRARRORRRRIRIODORIRRARRRDORRCODARORARAIA 
100 PRINT 

110 PRINT "INDIQUE HASTA QUE NUMERO DESEA OBTENER LA LISTA DE NUMEROS PRIMOS" 
120 INPUT Mm 

130 PRINT 

140 PRINT "LISTA DE NUMEROS PRIMOS MENORES QUE"; 

150 PRINT 

160 FOR N=2 TO M 

170 FOR I=2 TO N 

180 IF I>SQR(N) THEN GOTO 210 

185 R=N-IXINT(N/I) 

190 IF R=0 THEN 220 

200 NEXT 1 

210 PRINT N, 

220 NEXT N 

230 END 


ejercicios resueltos: 


Formar la lista de números primos menores de 2000. 


SOLUCION: 


INDIQUE HASTA QUE NUMERO DESEA OBTENER LA LISTA DE NUMEROS PRIMOS 


? 2000 
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LISTA DE NUMEROS PRIMOS MENORES QUE 2000 


3 

37 
79 
131 
181 
239 
293 
359 
421 
479 
557 
613 
673 
743 
821 
831 
953 
1021 
1091 
1163 
1231 
1301 
1399 
1459 
1531 
1601 
1667 
1797 
1831 
1907 
1997 


11 
47 
92 
149 
197? 
257 
313 
379 
439 
499 
571 
631 
691 
761 
3829 
907 
977 
1039 
1103 
1187 
1259 
1319 
1927 
1483 
1553 
1613 
1697 
172277 
12867 
1933 


13 
53 
101 
151 
199 
263 
317 
383 
4493 
503 
577 
641 
701 
769 
3839 
911 
983 
1049 
1109 
1193 
1277 
1321 
1429 
1487 
1559 
1619 
1699 
1783 
1871 
1949 


17 
59 
103 
157 
211 
269 
331 
389 
449 
509 
587 
643 
709 
273 
853 
919 
991 
1051 
1117 
1201 
1279 
1327 
1433 
14389 
1567 
1621 
1709 
1787 
1873 
1951 


19 
61 
107 
163 
223 
271 
337 
397 
457 
521 
593 
647 
719 
787 
857 
929 
997 
1061 
1123 
1213 
1233 
1361 
1439 
1493 
1571 
1627 
1721 
1789 
1877 
1973 


23 
67 
109 
167 
227 
277 
347 
401 
461 
523 
599 
653 
227 
797 
859 
937 
1009 
1063 
1129 
1217 
1289 
1367 
1447 
1499 
1579 
1637 
1723 
1801 
1879 
1979 


29 
71 
113 
173 
229 
281 
349 
409 
463 
541 
601 
659 
733 
809 
863 
941 
1013 
1069 
1151 
1223 
1291 
1373 
1451 
1511 
1583 
1657 
1733 
13811 
1889 
1987 


FORMACION ORDENADA DE LOS DIVISORES DE 
UN NUMERO 


introducción: 


Este programa sirve para realizar la formación ordenada de todos 
los divisores de un número. 
El programa es evidentemente muy sencillo, pero es de ejecución muy 
lenta. Se podría obtener un programa mucho mas rápido, a partir de la des- 


composición en factores primos, pero ello restaría claridad. 


listado del programa: 


10 REM IRRADIA III III 
20 REM 


30 REM FORMACION ORDENADA DE Los 
40 REM 

50 REM DIVISORES DE UN NUMERO 

60 REM 


70 REM ISORA: 
100 PRINT 

110 PRINT "INTRODUZCA EL NUMERO N = "; 
120 INPUT N 

130 M=ABS(N) 

140 PRINT 

150 PRINT "LOS DIVISORES DE "3¿N5"SON :* 
160 PRINT 

170 FOR I=1 TOM 

180 IF INT(M/I)<>(M/1) THEN GOTO 200 
190 PRINT I, 

200 NEXT I 

210 PRINT 

220 PRINT 

230 GOTO110 

240 END 


ejercicios resueltos: 


1. Cálcular los divisores de 724. 
SOLUCION: 
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INTRODUZCA EL NUMERO N = ? 724 
LOS DIVISORES DE 724 SON : 


1 2 4 181 362 


5/7 Cálcular los divisores de 360. 
SOLUCION: 


INTRODUZCA EL NUMERO N = ? 360 


LOS DIVISORES DE 360 SON : 


1 2 3 
6 8 9 
15 18 20 
36 40 45 
90 120 180 


3. Cálcular los divisores de 1024. 
SOLUCION : 


INTRODUZCA EL NUMERO N = ? 1024 


LOS DIVISORES DE 1024 SON : 


1 2 4 
32 64 128 
1024 


4. Cálcular los divisores de 123456. 
SOLUCION: 


INTRODUZCA EL NUMERO N = ? 123456 


LOS DIVISORES DE 123456 SON : 


1 2 3 

8 12 .16 

48 64 96 
1286 1929 2572 
10288 15432 20576 


61728 123456 


724 


256 


35 


30 
72 


16 
512 


NUMERO DE DIVISORES DE UN NUMERO 
(SUMA Y PRODUCTO) 


introducción: 


Este interesante programa cálcula: 

1%) La descomposición en factores primos de un número. 

2%) El número de divisores de un número. 

3%) La suma de los divisores de un número. 

4%) El producto de los divisores de un número. 

El procedimiento es muy sencillo, una vez descompuesto el número 


en factores primos de la forma: 


N al. DO 9... ap se tiene que: 
El número de divisores: D=(1+1) (m+ 1) ... (p+1) 
La suma de los divisores: S = A A ; aL, 2 dí E iia 
a- 1 bi = 1 da - 1 
El producto de los divisores: P= Y ND 


listado del programa: 


1 REA O IO ORIO OOOO III III RIIIE III 
10 REM 


20 REM DESCOMPOSICION FACTORIAL DE UN NUMERO 
30 REM 

40 REM NUMERO DE DIVISORES DE UN NUMERO 

50 REM 

60 REM SUMA DE LOS DIVISORES DE UN NUMERO 
70 REM 

80 REM PRODUCTO DE LOS DIVISORES DE UN NUMERO 
90 REM 


95 REM IRRADIA: 
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100 PRINT 

110 PRINT "ESCRIBA EL NUMERO QUE DESEA DESCOMPONER”; 
120 INPUT N 

130 D=1 

140 S=1 

150 PRINT 

160 PRINT 

170 PRINT"EL NUMERO"5N5"SE DESCOMPONE FACTORIALMENTE DEL SIGUIENTE MODO :" 
180 M=N 

190 I=2 

200 J=0 

210 IF INT(N/I)><>(N/I) THEN GOTO 250 

220 N=N/I 

230 J=J+1 

240 GOTO 210 

250 IF J=0 THEN GOTO 290 

260 PRINT "EL FACTOR"31I;3"  APARECE"3J; "VECES" 

270 D=DX(J+1) 

280 S=S*(17 (J+1)-1)/(1-1) 

290 I=I+1 

300 IF I<=N THEN GOTO 200 

310 PRINT 

320 PRINT "EL NUMERO DE DIVISORES DE"3M;"ES = "3D 
330 PRINT 

340 PRINT "LA SUMA DE LOS DIVISORES DE";M;"ES ="53S 
350 PRINT 

360 PRINT "EL PRODUCTO DE LOS DIVISORES DE"3M;5"ES ="3M3"-"3(D/2) 
370 END 


ejercicios resueltos: 


Ll. ss el número 360. Cálcular: 


) Su descomposición en factores primos. 
) El número de divisores. 

2) La suma de sus divisores. 
) 


El producto de sus divisores. 


SOLUCION: 


ESCRIBA EL NUMERO QUE DESEA DESCOMPONER? 360 


EL NUMERO 360 SE DESCOMPONE FACTORIALMENTE DEL SIGUIENTE MODO : 
EL FACTOR 2 APARECE 3 VECES 

EL FACTOR 3 APARECE 2 VECES 

EL FACTOR 5 APARECE 1 VECES 

EL NUMERO DE DIVISORES DE 360 ES = 24 

LA SUMA DE LOS DIVISORES DE 3640 ES = 1170 


EL PRODUCTO DE LOS DIVISORES DE 360 ES = 360 ” 12 
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5 A Dado el número 12343456. Cálcular: 
1%) Su descomposición en factores primos. 
2%) El número de divisores. 
3) La suma de sus divisores. 


4%) El producto de sus divisores. 


SOLUCION: 


ESCRIBA EL NUMERO QUE DESEA DESCOMPONER? 12343456 


EL 
EL 
EL 
EL 
EL 


EL 


LA 


EL 


NUMERO 12343456 SE DESCOMPONE FACTORIALMENTE DEL SIGUIENTE MODO : 
FACTOR 2 APARECE 3 VECES 

FACTOR 23 APARECE 1 VECES 

FACTOR 31 APARECE 1 VECES 

FACTOR 541 APARECE 1 VECES 


NUMERO DE DIVISORES DE 12343456 ES = 48 
SUMA DE LOS DIVISORES DE 12343456 ES = 26224128 


PRODUCTO DE LOS DIVISORES DE 12343456 ES = 12343456 ” 24 


3. Dado el número 66759. Cálcular: 
1%) Su descomposición en factores primos. 
2%) El número de divisores. 
39y La suma de sus divisores. 


4%) El producto de sus divisores. 


SOLUCION: 


ESCRIBA EL NUMERO QUE DESEA DESCOMPONER”? 66759 


EL 
EL 
EL 
EL 
EL 


EL 


LA 


EL 


NUMERO 66739 SE DESCOMPONE FACTORIALMENTE DEL SIGUIENTE MODO : 
FACTOR 3 APARECE 1 VECES 


FACTOR 7 APARECE 1 VECES 

FACTOR 11 APARECE 1 VECES 

FACTOR 1? APARECE 2 VECES 

NUMERO DE DIVISORES DE 66759 ES = 24 

SUMA DE LOS DIVISORES DE 646759 ES = 117888 


PRODUCTO DE LOS DIVISORES DE 66759 ES = 66759 ” 12 


NUMEROS PERFECTOS PARES 


introducción: 


Se dice que un número natural es perfecto si es igual a la suma 
de sus divisores (incluido el uno y excluido el propio número). 

Tanto Euclides como Euler demostraron que todo número par per- 
fecto es de la forma: e 1), siempre y cuando 2P- 1 sea un número - 
primo. 

El presente programa sirve para Obtener los números perfectos 
pares, ya que no se sabe si puede haber números perfectos impares, ahora 
bien, si los hubiese serían mayores que 192: asi pues, no los busque con 
su microordenador. 

Los números perfectos pares son tan escasos que algunos matemá- 
ticos han llegado a decir que son más difíciles de encontrar que los sellos 
más valiosos de Correos. Hasta el año 1980 solo se conocían 24 numeros, tén 


gase en cuenta que el noveno número perfecto tiene 37 dígitos. 
Es interesante observar: 


a) Todo número perfecto par acaba en 28 o en 6. 
b) La suma de los recíprocos de los divisores de un número par 


perfecto es siempre igual a 2. 


Asi por ejemplo: 


; 1 1 Mor 
Para el 6 se tiene: 1 + 5 + 3 + > 2 


' y pl 1 e 
Para el 28 se tiene: 1 + 3 + 7 + 7 + a + 28 2 
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listado del programa: 


10 REM IRRADIA 
20 REM 

30 REM NUMEROS PERFECTOS PARES 
40 REM 

50 REM IRRADIA 
100 PRINT 

110 PRINT "NUMEROS PERFECTOS PARES" 

120 PRINT 

130 N=1 

140 A=2"N-1 

150 I=2 

160 IF I>SQR(A) THEN 240 

170 R=A-IXINT(A/1) 

180 IF R=0 THEN 220 

190 IF 1<>2 THEN I=1+1 

200 I=I+1 

210 GOTO 160 

220 N=N+1 

230 GOTO 140 

240 B=(2"(N-1))X*(2"N-1) 

250 PRINT B 

260 N=N+1 

270 GOTO 140 

280 END 


ejercicios resueltos: 


1. Obtener los 7 primeros números perfectos pares. 
SOLUCION : 


NUMEROS PERFECTOS PARES 


1 

6 

28 

496 

8128 
333550336 
853589869036 


in 


de 


NUMEROS AMIGOS 


. €; 
troducción: 
Se dice que dos números A y B, son amigos, si B es igual a la suma 
todos los divisores de A excepto A, y si A es igual a la suma de todos 


los divisores de B, excepto B. 


Los árabes en el siglo IX, ya tenían fórmulas que permitían obte- 


ner números amigos. 


n n ' . ; o 
Los números 2 pq y 2 s son amigos si son primos los siguientes 


números: 


do 


Por ello el programa forma p, q y s y prueba si son primos. Cuan 


los tres lo son, forma A y B y los imprime. 


listado del programa: 


10 

20 

30 

40 

50 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


REM IRRADIA 
REM 
REM NUMEROS AMIGOS 
REM 
REM IRRADIA RDAORARARARDOARDARDRORODERDRRRRDEDRRORARRRRDRROORRODROORCIOOAAA 
PRINT 

PRINT “NUMEROS AMIGOS" 

PRINT 

N=2 

P=3X2"N-1 

M=P 

GOSUB 279 

Q=3X2"” (N-1)-1 

M=Q 

GOSUB 279 

S=9X2"” (2XN-1)-1 

M=S 

GOSUB 279 

A=2"NXPXQ 

B=2"NXS 

PRINT A,B 
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260 N=N+1 

270 GOTO 140 

279 REM - SUBRUTINA PARA COMPROBAR SI P,Q,R SON PRIMOS - 
280 I=2 

290 IF I>=M THEN 360 
300 R=M-IXINT(M/I) 
310 IF R=0 THEN 340 
320 I=I+1 

330 GOTO 290 

340 N=N+1 

350 GOTO 140 

360 RETURN 

370 END 


ejercicios resueltos: 


Es Obtener los números amigos posibles. 
SOLUCION: 


NUMEROS AMIGOS 


220 284 
17296 18416 
9363584 9437056 


NUMEROS DE MERSENNE 


introducción: 


Se dice que el número M_ es de Mersenne, si es de la forma: 
Mm =2P-1 


siendo p un número primo. Asi pues, a cada número primo p le corresponde 


un número de Mersenne Mo 


El proceso del programa es muy sencillo, consiste en formar núme- 


ros primos p y posteriormente su M» asociado. 


NOTA.- Estos números deben su nombre al Padre Marín Mersenne (1588-1648), 
matemático francés, gran amigo de Pascal y de Fermat. Sus trabajos fue 


ron preferentemente sobre teoría de números. 


listado del programa: 


10. REM IRRRRRRRRRRRRARRRRRORRORRORORORROREARDAOROREARDARRODRORRDRARRORORAOAARARDOAOACIONNEEAAAR 


20 REM 
30 REM 
40 REM NUMEROS DE MERSENNE 
50 REM 
60 REM 


70 REM ARRRRRRRRRROARRRRRRRRRRDRRRRRERARRRRARARORARARARBRDARARRORARDARORADRRERARARARER 


100 PRINT 

110 PRINT "NUMEROS DE MERSENNE”" 
120 PRINT 

129 REM - FORMACION DE LA LISTA DE NUMEROS PRIMOS - 
130 FOR N=1 TO 100000000 

140 FOR I=2 TO SOR(N) 

150 IF IXI>N THEN 190 

160 R=N-IXINT(N/I) 

170 IF R=0 THEN 210 

180 NEXT I 

190 M=2"N-1 

200 PRINT "M"3N5"="3M 

210 NEXT N 

220 END 
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ejercicios resueltos: 


Lióbtes los primeros números de MERSENNE. 
SOLUCION: 


NUMEROS DE MERSENNE 


UN 


1 

127 

2047 
8191 
131071 
524287 
8388607 


TZIAIZXIZZIZZAZZ 
—. 
— 


pS 
N 
"nu. 2.4“... 


NUMEROS DE FERMAT 


introducción: 


Se llaman números de Fermat, a los números de la forma: 


Fermat pensó, que todos estos números serían primos, pero Euler en 1732 


descompuso el número F 


5, 


5 429496729 en factores del siguiente modo: 


Fs 429496729 = 641.6700417 
Posteriormente, se ha demostrado que ES no es primo, cuando n es 


67. Ty :85. My. TL, 12, 185 235 36, 389, 0. 


Este programa evidentemente es sencillísimo, pues basta con calcu 


lar 2? + 1, variando n. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 


REM RRRRRRRODORORORDOROARARDORDARARDODDRDERRDOIOO OI III III III III 
REM 


REM 

REM NUMEROS DE FERMAT 

REM 

REM 

REM RR IIIIIIIIIOIIRIIOOIAIIIIIIIRRA 


PRINT 

PRINT "NUMEROS DE FERMAT" 
PRINT 

I=0 

F=(2* (2*1))+1 

PRINT *F"3l53"=";F 

I=1+1 

GOTO 140 

END 
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ejercicios resueltos: 


¡7 Obtener los cinco primeros números de Fermat. 
SOLUCION: 


NUMEROS DE FERMAT 


FO=3 
Fizs5 
F2=17 
F 3 = 257 
F 4 = 65537 


in 


MULTIPLOS DE UN NUMERO K 


troducción: 


El presente programa sirve para formar ordenadamente los múltiplos 


de un número K menores que un número N, prefijado por el programa. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


ej 


REM IRRRRRRRRRRREARROAROREORRRORRRORERORRERRDRRRORRORROORODODOROREADEORDOREADOARDORDODOCR 
REM 


REM FORMACION DE MULTIPLOS DE K 

REM 

REM MENORES QUE UN NUMERO DADO N 

REM 

REM RRRRRRRRRRDRRRRORARORARARDARRRREARORRRORARORORAOROROROROREOORRAOREARORAOEOE ARA 


PRINT 

PRINT "MULTIPLOS DE K ="5 
INPUT K 

PRINT "HASTA EL NUMERO N ="5 
INPUT N 

PRINT 

PRINT 

PRINT "MULTIPLOS DE”;3K; "MENORES QUE"5N 
PRINT 

M=-K 

M=M+K 

IF M>=N THEN GOTO 240 

PRINT Ma, 

GOTO 200 

END 


ercicios resueltos: 


¡e Formar todos los múltiplos de 5 menores de 100. 


SOLUCION: 


48 


MULTIPLOS DE K =? 5 
HASTA EL NUMERO N =”? 100 


MULTIPLOS DE S MENORES QUE 100 


0 5 10 15 20 25 
50 55 60 65 70 ?5 
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30 
s0 


35 
85 


UN Formar todos los múltiplos de 3 menores de 500. 


SOLUCION: 


MULTIPLOS DE K =? 3 
HASTA EL NUMERO N =? 500 


MULTIPLOS DE 3 MENORES QUE 500 


o 3 6 9 12 15 
30 33 36 39 42 45 

60 63 66 69 72 75 

90 93 96 99 102 105 
120 123 126 129 132 135 
150 153 156 159 162 165 
180 183 186 189 192 195 
210 213 216 219 222 225 
240 243 246 249 252 255 
270 273 276 279 282 285 
300 303 306 309 312 318 
330 5us 336 339 342 345 
360 363 366 369 372 375 
390 393 396 399 402 405 
420 423 426 429 432 435 
450 453 456 459 462 465 
480 483 486 489 492 495 


3. Obtener los múltiplos de 37 menores de 1000. 


SOLUCION 


MULTIPLOS DE K =? 37 
HASTA EL NUMERO N =2 1000 


MULTIPLOS DE 37 MENORES QUE 1000 
le] 37 74 111 148 185 


370 407 4494 481 518 555 
740 277 314 851 888 925 


18 

48 

78 

108 
138 
168 
193 
228 
258 
288 
318 
348 
378 
408 
438 
468 
498 


222 
592 
962 


259 
629 
999 


40 
90 


24 


54 


84 

114 
144 
174 
204 
234 
264 
294 
324 
354 
334 
414 
444 
474 


296 
666 


45 
95 


333 
703 


MULTIPLOS DE K ENTRE DOS NUMEROS DADOS 


introducción: 


Este programa sirve para formar ordenadamente los múltiplos de 
un número K entre dos números dados Ni y N)- 
Es un caso análogo al programa anterior. 


listado del programa: 


10 REM IRRADIA 
20 REM 


30 REM FORMACION DE MULTIPLOS DE K 

40 REM 

50 REM MAYORES QUE N1 Y MENORES QUE N2 
60 REM 


70 REM IRSRRRROAROROARORRRRRORRRRRORRRRRORRRRRRARERRRRRRRRRRRRRRRRRRRRRRRORORRRRRAREARE 
100 PRINT 

110 PRINT "MULTIPLOS DE K ="5 

120 INPUT K 

130 PRINT "ENTRE EL NUMERO Ni =";5 

140 INPUT Ni 

150 PRINT "Y EL NUMERO N2 ="; 

160 INPUT N2 

170 PRINT 

180 PRINT 

190 PRINT "MULTIPLOS DE";K5"ENTRE"3N153"Y"3N2 
200 PRINT 

210 M=KX(INT(N1/K)) 

220 M=M+K 

230 IF M>=N2 THEN GOTO 260 

240 PRINT M, 

250 GOTO 220 

260 END 


ejercicios resueltos: 


Es Obtener los múltiplos de 7 comprendidos entre 23 y 131. 
SOLUCION: 
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MULTIPLOS DE K =? 2 
ENTRE EL NUMERO Ni =? 23 
Y EL NUMERO NZ2 =? 131 


? 


MULTIPLOS DE 7? ENTRE 23 Y 131 


28 35 42 49 56 63 70 77 84 91 
98 105 112 119 126 
yn Obtener los múltiplos de 11 comprendidos entre 100 y 1000. 

SOLUCION: 

MULTIPLOS DE K =? 11 

ENTRE EL NUMERO Ni =”? 100 

Y EL NUMERO N2 =7? 1000 

MULTIPLOS DE 11 ENTRE 100 Y 1000 

110 121 132 143 154 165 176 187 198 209 
220 231 242 253 264 275 286 297 308 319 
330 341 352 363 374 385 396 407 418 429 
440 451 462 473 484 495 506 517 528 539 
550 561 572 583 594 605 6l6 627 638 649 
660 671 682 693 704 715 726 237 748 7539 
270 781 792 803 814 825 836 847 258 269 
eso 891 902 913 924 935 946 957 968 979 
990 

3. Obtener los múltiplos de 17 comprendidos entre 500 y 1500. 

SOLUCION: 

MULTIPLOS DE K =? 12? 

ENTRE EL NUMERO N1 =”? 500 

Y EL NUMERO N2 =? 1500 

MULTIPLOS DE 17 ENTRE 500 Y 1500 

510 527 544 S5ó6l 578 595 612 629 646 663 
680 697 714 731 748 765 782 299 816 833 
850 3867 384 901 918 935 952 969 986 1003 
1020 1037 1054 1071 1088 1105 1122 1139 1156 1173 
1190 1207 1224 1241 1258 1275 1292 1309 1326 1343 


1360 1377 1394 1411 1428 1945 1462 1479 1496 


MULTIPLOS COMUNES DE DOS NUMEROS 


introducción: 


Este programa sirve para formar ordenadamente los múltiplos comu- 
nes de A y B, menores que un número dado N. 

Para ello en la linea 209, se inicia el cálculo del m.c.m.(A,B) al 
que llamamos M y posteriormente en la linea 279 se forman los múltiplos 


de M, que es el menor múltiplo común (excepto el cero). 


listado del programa: 


10 REM IRRADIA 
20 REM 


30 REM FORMACION DE MULTIPLOS COMUNES 
40 REM 

50 REM DE A Y B MENORES QUE N 

60 REM 


70 REM III III: 
100 PRINT 

110 PRINT "INTRODUZCA A ="; 

120 INPUT A 

130 PRINT "INTRODUZCA B ="; 

140 INPUT B 

150 PRINT "HASTA EL NUMERO N ="; 

160 INPUT N 

170 PRINT 

180 PRINT 

190 PRINT "LOS MULTIPLOS COMUNES DE";5 A;"Y"3B3" MENORES QUE"5N5"SON :" 
200 PRINT 
209 REM - CALCULO DEL M.C.M(A,B) - 

210 P=A*B 

220 R=A-BX*INT(A/B) 

230 IF R=0 THEN 270 

240 A=B 

250 B=R 

260 GOTO 220 

270 M=P/B 

279 REM - FORMACION DE LOS MULTIPLOS - 

280 K=-M 

290 K=K+M 

300 IF K>=N THEN GOTO 330 

310 PRINT K, 

320 GOTO 290 

330 END 


52 DIVISIBILIDAD 


ejercicios resueltos: 


1. Obtener los múltiplos comunes a 3 y 7 menores de 300. 
SOLUCION : 


INTRODUZCA A =7? 3 
INTRODUZCA B =? 7 
HASTA EL NUMERO N =? 300 

LOS MULTIPLOS COMUNES DE 3 Y 7 MENORES QUE 300 SON : 


o 21 42 és 34 105 126 147 168 
210 231 252 273 294 


pa Obtener los múltiplos comunes a 7 y 17 menores de 1000. 
SOLUCION: 


INTRODUZCA A =? 7? 
INTRODUZCA B =? 17 
HASTA EL NUMERO N =? 1000 


LOS MULTIPLOS COMUNES DE 7? Y 17 MENORES QUE 1000 SON : 


[o] 119 238 357 476 595 714 833 932 


ER Obtener los múltiplos comunes a 2 y 8 menores de 700. 
SOLUCION: 


INTRODUZCA A =? 2 
INTRODUZCA B =? 8 
HASTA EL NUMERO N =? 200 


LOS MULTIPLOS COMUNES DE 2 Y 8 MENORES QUE 700 SON : 


o 8 16 24 32 40 48 56 64 
30 88 96 104 112 120 128 136 144 
160 168 176 184 192 200 208 216 224 
240 248 256 264 272 280 288 296 304 
320 328 336 344 352 360 368 376 384 
400 408 416 424 432 440 448 456 464 
480 488 496 504 512 520 528 536 544 
560 568 576 584 592 600 608 élé6 624 


640 648 656 664 672 680 688 696 


1392 


22 

152 
232 
312 
392 
472 
552 
632 


CLASES DE RESTOS DE MODULO M 


introducción: 


Este programa permite calcular las clases de restos módulo M. En 
la linea 210 limitamos los números congruentes hasta 100. Si se desease 
calcular los números congruentes hasta otro número, por ejemplo, 1000 


sería: 


210 IF 1 >= (1000 - M) THEN GOTO 240 


listado del programa: 


10 REM ISSRORRRARAOORRORDDRRORRRBRRIRRIRARRIRRRIRRRRIRRIRRRIRRRIRRRRRRRRRRRRRRRRRRRRRE 
20 REM 

30 REM CLASES DE RESTOS 
40 REM 

50 REM MODULO M 

60 REM 

70 REM IRRRRRRRRRRRORIAORRIDRIAORRORRRRIDRRIORRIDRRIORRRRRIRRRRRRIRRRRRRRIRDRRDRRRRRDRRR 
100 PRINT 

110 PRINT "INTRODUZCA EL MODULO M ="; 

120 INPUT M 

130 PRINT 

140 FOR K=0 TO M-1 

150 PRINT 

160 PRINT 

170 PRINT "CLASE DE RESTO ”3k3"MODULO”5M 

180 PRINT 

190 I=k 

200 PRINT I. 

210 IF I>=(100-M) GOTO 240 

220 I=1+M 

230 GOTO 200 

240 NEXT K 

250 END 
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ejercicios resueltos: 


L; Calcular las clases de restos módulo 5 hasta 100. 
SOLUCION: 


INTRODUZCA EL MODULO M =? 5 


CLASE DE RESTO O MODULO 5 


Oo 5 10 15 20 25 30 35 
50 55 60 65 70 75 80 8s 


CLASE DE RESTO 1 MODULO 5 


1 7) 11 16 21 26 31 36 
si 56 61 66 71 76 81 86 


CLASE DE RESTO 2 MODULO 5 


2 rá 12 17 22 27 32 37 
52 57 62 67 72 27 82 87 


CLASE DE RESTO 3 MODULO 5 


3 8 13 18 23 28 33 38 
53 58 63 68 73 78 83 88 


CLASE DE RESTO 4 MODULO 5 


4 9 14 19 24 29 34 39 
54 59 64 69 74 79 84 89 


pe Calcular las clases de restos módulo 7 hasta 100. 
SOLUCION: 


INTRODUZCA EL MODULO M =? 72 


CLASE DE RESTO O MODULO 7? 


0 7 14 21 28 35 42 49 
70 27 84 91 98 


CLASE DE RESTO 1 MODULO 2? 


1 8 15 22 29 36 43 50 
71 78 es 92 99 


CLASE DE RESTO 2 MODULO 7? 


2 9 16 23 30 37 44 51 
72 729 86 93 


40 
90 


41 
91 


42 
92 


43 
93 


44 
94 


56 


57 


45 
95 


46 
96 


47 
97 


48 
98 


49 
99 


63 


64 


65 


CLASE DE 


3 
73 


CLASE DE 


4 
74 


CLASE DE 


5 
75 


CLASE DE 


ó 
76 


3. Calcular las clases de restos módulo 3 


RESTO 


10 
30 


RESTO 


11 
81 


RESTO 


12 
82 


RESTO 


13 
83 


3 MCDULO 2? 


4 MODULO ? 


18 25 
38 95 
5 MODULO 2? 
19 26 
89 96 


6 MODULO 2? 


20 
90 


SOLUCION: 


INTRODUZCA EL MODULO M 


CLASE DE 


Oo 

30 
60 
90 


CLASE DE 


1 

31 
61 
91 


CLASE DE 


2 

32 
62 
92 


RESTO 


3 

33 
63 
93 


RESTO 


=?9 3 


O MODULO 3 


6 2 
36 39 
66 69 
96 99 
1 MODULO 3 
? 10 
37 40 
67 70 
97 
2 MODULO 3 
83 11 
38 41 
68 Zi 
98 
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31 38 
32 39 
33 40 
34 91 


12 
42 
72 


13 
43 
73 


14 
44 
74 


15 
45 
75 


16 
46 
76 


17 
47 
27 


45 52 
46 53 
47 54 
48 55 
hasta 100. 
18 21 
48 51 
78 81 
19 22 
49 52 
729 82 
20 23 
50 53 
go 83 


59 


60 


61 


62 


24 
54 
84 


25 
55 
85 


26 
56 
86 


66 


67 


68 


69 


27 
57 
87 


28 
58 
88g 


29 
59 
89 


55 


EXPONENTE DE P EN MI! (REGLA DE LEGENDRE) 


introducción: 


en 


Este programa permite calcular el exponente de un número primo p 
M !, mediante la llamada regla de Legendre. 


Para ello se pasa el número M al sistema de base p, y se sumán las 


cifras del número expresado en base p, que llamaremos S, entonces según 


la 


regla de Legendre se tiene que el exponente de p en M l es: 
M-S 
pi = 1 


En este programa se ha limitado a factores p menores que 10, en el 


caso de que se desease factores mayores habría que incluir instrucciones 


para asignar a A el valor 10, B=11, etc. 


Las variables A$ y A se han dimensionado con 100,de manera que al 


pasar el número a base p tendrá como máximo, 100 cifras. 


Si se desea se puede variar esta dimensión. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
go 
90+ 
100 
110 
120 
130 
140 
150 
160 
170 


REM IRRADIA 
REM 
REM CALCULO DEL EXPONENTE DE 
REM 
REM DE UN NUMERO PRIMO P EN mM! 
REM 
REM (REGLA DE LEGENDRE) 
REM 
REM ISORA 
PRINT 
DIM A$(100),A(100) 
PRINT "ESCRIBA EL NUMERO M =*; 
INPUT M 
R=M 
PRINT "ESCRIBA EL FACTOR PRIMO (<10) P ="; 
INPUT P 
PRINT 
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179 REM - PASO DEL NUMERO M AL SISTEMA DE BASE P - 

180 B$="0123456789" 

190 N$=" ” 

200 C=INT(PX((M/P)-INT(M/P))+1.5) 

210 N$=MID$(B$,C,1)+N$ 

220 M=INT(M/P) 

230 IF M>0 THEN GOTO 200 

240 PRINT "EL NUMERO "5R;3"ES IGUAL A ";3N$;"EN EL SISTEMA DE BASE"*;P 
249 REM - SUMA DE LAS CIFRAS DEL NUMERO OBTENIDO - 

250 S=0 

260 L=LEN(NS$) 

270 FOR I=1 TO L-1 

280 AS(1)=MID$S(N$, 1,1) 

290 A(I)=VAL(AS(I)) 

300 S=S+A(I) 

310 NEXT 1 

320 PRINT "LA SUMA DE LAS CIFRAS DEL NUMERO"3R;5"ESCRITO EN BASE"5P5"ES IGUAL A " 
¡S 

329 REM - APLICACION REGLA DE LEGENDRE - 

330 N=(R-S)/(P-1) 

340 PRINT 

350 PRINT "EL EXPONENTE DE";P5"EN FACTORIAL DE"3R;" ES IGUAL A ="3N 
360 END 


ejercicios resueltos: 


1. Hallar el exponente de 3, 5 y 7 en 1900! 
SOLUCION: 


ESCRIBA EL NUMERO M =? 1900 
ESCRIBA EL FACTOR PRIMO (<10) P =? 3 


EL NUMERO 1900 ES IGUAL A 2121101 EN EL SISTEMA DE BASE 3 
LA SUMA DE LAS CIFRAS DEL NUMERO 1900 ESCRITO EN BASE 3 ES IGUAL A 8 


EL EXPONENTE DE 3 EN FACTORIAL DE 1900 ES IGUAL A = 946 


ESCRIBA EL NUMERO M =? 1900 
ESCRIBA EL FACTOR PRIMO (<10) =? 5 


EL NUMERO 1900 ES IGUAL A 30100 EN EL SISTEMA DE BASE 5 
LA SUMA DE LAS CIFRAS DEL NUMERO 1900 ESCRITO EN BASE 5 ES IGUAL A 4 


EL EXPONENTE DE S EN FACTORIAL DE 1900 ES IGUAL A = 474 


ESCRIBA EL NUMERO M =? 1900 
ESCRIBA EL FACTOR PRIMO (<10) P =? 7 


EL NUMERO 1900 ES IGUAL A 5353 EN EL SISTEMA DE BASE 7? 
LA SUMA DE LAS CIFRAS DEL NUMERO 1900 ESCRITO EN BASE 7 ES IGUAL A 16 


EL EXPONENTE DE 7? EN FACTORIAL DE 1900 ES IGUAL A = 314 
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2. Hallar el exponente de 2, 3 y 7 en 300 ! 
SOLUCION: 


ESCRIBA EL NUMERO M =”? 300 
ESCRIBA EL FACTOR PRIMO (<10) P =? 2 


EL NUMERO 300 ES IGUAL A 100101100 EN EL SISTEMA DE BASE 2 
LA SUMA DE LAS CIFRAS DEL NUMERO 300 ESCRITO EN BASE 2 ES IGUAL A 4 


EL EXPONENTE DE 2 EN FACTORIAL DE 300 ES IGUAL A = 296 


ESCRIBA EL NUMERO M =? 300 
ESCRIBA EL FACTOR PRIMO (<10) P =? 3 


EL NUMERO 300 ES IGUAL A 102010 EN EL SISTEMA DE BASE 3 
LA SUMA DE LAS CIFRAS DEL NUMERO 300 ESCRITO EN BASE 3 ES IGUAL A 4 


EL EXPONENTE DE 3 EN FACTORIAL DE 300 ES IGUAL A = 148 


ESCRIBA EL NUMERO M =? 300 
ESCRIBA EL FACTOR PRIMO (<10) P =? 7? 


EL NUMERO 300 ES IGUAL A 606 EN EL SISTEMA DE BASE 7 
LA SUMA DE LAS CIFRAS DEL NUMERO 300 ESCRITO EN BASE 7 ES IGUAL A 12 


EL EXPONENTE DE 7? EN FACTORIAL DE 300 ES IGUAL A = 48 


in 


RESTOS POTENCIALES 


troducción: 


Este programa sirye para calcular los restos potenciales módulo M. 


Para ello se calcula el resto de Ni al dividir por M y se escribe 


el valor de este resto. Para evitar errores en el cálculo de las poten- 


Cia 
res 


vam 


s, enlugar de calcular el resto de y? al dividir por M, calculamos el 
to de dividir por Mde R x N siendo R el resto de N/M y asi sucesi- 


ente. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


REM ISRRRRROARRRIRIOIORIRIOIIIIIIIIIIIIIIIIIIOIIIIAIIAIIIIIIIIIIIIIIRARA 
REM 


REM FORMACION DE Los RESTOS 
REM 

REM POTENCIALES MODULO M 

REM 


REM IRRRRIRRRROORIAIORIRRIRRRORRRRRRIRRIDRRRRRRRRRRRRRRRRRRRRRRRRRRORRRRRRRRR 
PRINT 

PRINT "NUMERO DEL QUE SE DESEA HALLAR LOS RESTOS POTENCIALES N ="; 
INPUT N 

PRINT "MODULO M ="; 

INPUT M 

PRINT 

PRINT 

PRINT "RESTOS POTENCIALES DE";N;"RESPECTO AL MODULO” ;mM 

PRINT 

I=0 

P=N"1 

R=P-MXINT(P/M) 

PRINT N;"""31;”"ES CONGRUENTE CON ";R 

I=1+1 ; 

P=RXN 

GOTO 210 

END 
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ejercicios resueltos: 


Ne soms los restos potenciales de 12 módulo 35. 
SOLUCION: 


Xx 
NUMERO DEL QUE SE DESEA HALLAR LOS RESTOS POTENCIALES N =? 12 
MODULO M =? 35 


RESTOS POTENCIALES DE 12 RESPECTO AL MODULO 35 


12 ” O ES CONGRUENTE CON 1 
12 ” 1 ES CONGRUENTE CON 12 
12 ” 2 ES CONGRUENTE CON 4 
12 ” 3 ES CONGRUENTE CON 13 
12 ” 4 ES CONGRUENTE CON 16 
12 * 5 ES CONGRUENTE CON 17 
12 ” 6 ES CONGRUENTE CON 29 
12 * 7 ES CONGRUENTE CON 33 
12 ” 8 ES CONGRUENTE CON 11 
i2 * 9 ES CONGRUENTE CON 27 
12 ” 10 ES CONGRUENTE CON 9 
12 * 11 ES CONGRUENTE CON 3 
12 ” 12 ES CONGRUENTE CON 1 
12 ” 13 ES CONGRUENTE CON 12 
12 ” 14 ES CONGRUENTE CON 4 
12 ” 15 ES CONGRUENTE CON 13 


Lis Formar los restos potenciales de 10 módulo 13. 
SOLUCION : 


NUMERO DEL QUE SE DESEA HALLAR LOS RESTOS POTENCIALES N =7? 10 
MODULO M =? 13 


RESTOS POTENCIALES DE 10 RESPECTO AL MODULO 13 


10 * O ES CONGRUENTE CON 1 
10 ” 1 ES CONGRUENTE CON 10 
10 ” 2 ES CONGRUENTE CON 9 
10 ” 3 ES CONGRUENTE CON 12 
10 * 4 ES CONGRUENTE CON 3 
10 ” 5 ES CONGRUENTE CON 4 
10 ” 6 ES CONGRUENTE CON 1 
10 7” 7 ES CONGRUENTE CON 10 
10 8 ES CONGRUENTE CON 9 


3. Formar los restos potenciales de 10 modulo 19. 
SOLUCION: 
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NUMERO DEL QUE SE DESEA HALLAR LOS RESTOS POTENCIALES N 


MODULO M =? 19 


RESTOS POTENCIALES DE 


10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 
10 


A 


YJONO0dAdNro 


ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 
ES 


CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 


10 RESPECTO AL MODULO 19 


CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 


=? 10 


CALCULO DE LA ULTIMA CIFRA DE UNA POTENCIA 


introducción: 


Este programa sirve para calcular la última cifra de una potencia. 


Para ello se inicia en 179, el cálculo de los restos potenciales, módulo 


10, cuando el índice I es igual al exponente se imprime el resto R, que es 


la 


Yo 


última cifra de la potencia NA. 
Se podría haber realizado un algoritmo de ejecución más rápida, pe- 


perdería claridad el programa. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 


100 
110 
120 


REM IRRADIA 
REM 


REM CALCULO DE LA ULTIMA CIFRA 
REM 

REM DE LA POTENCIA NM 

REM 


REM ISRRRRRRRRRRORRRRRRRRRDRRRRARRORRORARRRRORDARRRORDARRRRRRRRRRBRERERDOREARDOCDORDARKE 
PRINT 
PRINT "NUMERO DEL QUE DESEA HALLAR LA ULTIMA CIFRA DE SU POTENCIA N”"M, N ="; 
INPUT N 


130 PRINT "EXPONENTE M ="3 

140 INPUT M 

150 PRINT 

160 PRINT 

170 PRINT "LA ULTIMA CIFRA DE "5N3"""3M3"ES =";5 
179 REM - CALCULO DE LOS RESTOS POTENCIALES MODULO 10 - 
180 I=0 

190 P=N*I 

200 R=P-10XINT(P/10) 

210 IF I=M GOTO 250 

220 I=1+1 

230 P=RXN 

240 GOTO 200 


250 
260 


PRINT R 
END 
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ejercicios resueltos: 


1. Hallar la última cifra de 17913. 


SOLUCION: 


NUMERO DEL QUE DESEA HALLAR LA ULTIMA CIFRA DE SU POTENCIA N*“M, N =? ] 
EXPONENTE M =? 819 


LA ULTIMA CIFRA DE 17? ”* 819 ES = 3 


PA Hallar la última cifra de 1377. 


SOLUCION: 


NUMERO DEL QUE DESEA HALLAR LA ULTIMA CIFRA DE SU POTENCIA N”"M, N =?2 137 
EXPONENTE M =? 36 


LA ULTIMA CIFRA DE 137 ” 36 ES = 1 


3. Hallar la última cifra de 69218. 
SOLUCION: : 


NUMERO DEL QUE DESEA HALLAR LA ULTIMA CIFRA DE SU POTENCIA NM, N =? 69 
EXPONENTE M =”? 318 


LA ULTIMA CIFRA DE 69 ” 318 ES = 1 
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CALCULO DEL RESTO DE DIVIDIR UNA POTENCIA 
POR M 


introducción: 


Este es otro programa de aplicación de los números congruentes 
que sirve para calcular el resto de dividir una potencia NE por M.Para 
ello se calculan los restos potenciales módulo M, en la linea 270 se impo 
ne la condición de que si los restos potenciales se repiten ese es el res 
to, en la linea 280 se dice que si un resto potencial vale la unidad se 
estudia el ciclo completo I de restos potenciales distintos para de esta 
forma calcular el resto de dividir el exponente E por I, ese será el resto 
buscado. 

Las variables R y P se dimensionan con 100, pues se confía que no 
haya sumas de 100 restos distintos. 


Si se desea se puede variar esta dimensióÓn. 


listado del programa: 


10 REM IRRRRRRROORARDO DARRO III III IICA 
20 REM 


30 REM CALCULO DEL RESTO DE 

40 REM 

50 REM DIVIDIR LA POTENCIA NE POR M 
60 REM 


70 REM IRRADIA IIA 
100 PRINT 

110 DIM R(100),P(100) 

120 PRINT "CALCULO DEL RESTO DE DIVIDIR N*E POR Mm" 
130 PRINT 

140 PRINT "INTRODUZCA LA BASE DE LA POTENCIA N ="; 
150 INPUT N 

160 PRINT "INTRODUZCA EL EXPONENTE E ="; 

170 INPUT E 

180 PRINT "INTRODUZCA EL MODULO M ="; 

190 INPUT Mm 

200 PRINT 
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210 PRINT 

219 REM - CALCULO DE LOS RESTOS POTENCIALES MODULO M - 
220 1=0 

230 R(I)=1 

240 I=I+1 

2350 P(I)=R(I-1)%N 

260 R(1)=P(1)-MXINT(P(1)/M) 

270 IF R(I)=R(1-1) THEN GOTO 300 

280 IF R(I)=1 THEN GOTO 320 

290 GOTO 240 

300 PRINT "EL RESTO DE DIVIDIR*"3N3"""jEs"POR"¡M5"ES IGUAL A "¿R(I) 
310 STOP 

320 R=E-IXINT(E/I) 

330 I=R 

340 GOTO 300 

350 END 


ejercicios resueltos: 


lonaziar el resto de dividir 16542? por 7. 
SOLUCION: 


CALCULO DEL RESTO DE DIVIDIR N*E POR M 


INTRODUZCA LA BASE DE LA POTENCIA N =? 1654 
INTRODUZCA EL EXPONENTE E =? 29 
INTRODUZCA EL MODULO M =? 7? 


EL RESTO DE DIVIDIR 1654 ” 29 POR 7 ES IGUAL A 4 


2. Hallar el resto de dividir porta por 8. 


SOLUCION :: 
CALCULO DEL RESTO DE DIVIDIR N”*E POR M 
INTRODUZCA LA BASE DE LA POTENCIA N =? 4 


INTRODUZCA EL EXPONENTE E =? 2523 
INTRODUZCA EL MODULO M =? 8 


EL RESTO DE DIVIDIR 4 ” 2523 POR 8 ES IGUAL A 0 


3. Hallar el resto de dividir cares por 9, 


SOLUCION : 
INTRODUZCA LA BASE DE LA POTENCIA N =? 64 


INTRODUZCA EL EXPONENTE E =? 328 
INTRODUZCA EL MODULO M =? 9 


EL RESTO DE DIVIDIR 64 ” 328 POR 9 ES IGUAL A 1 
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RESTOS CUADRATICOS 


introducción: 


Este programa sirve para la formación de los restos cuadráticos 
módulo M. 

Se llama resto cuadrático módulo M a todo número que es congruente 
módulo M con un cuadrado perfecto. 


Los restos cuadráticos más sencillos son los restos que se obtienen 


al dividir por M los números 12,22 32 E m?. 


listado del programa: 


10 REM IRSRRRRRRORRORORRRRROARARRREAROARRORRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRARARODARORA 
20 REM 

30 REM FORMACION DE Los RESTOS 
40 REM 

50 REM CUADRATICOS MODULO mM 

60 REM 

70 REM IRSRRRRRRRRRRRRRRROROARORARAROARORRRORARARORARRAROARARARORARARRORARORORDARDOREREA 
100 PRINT 

110 PRINT "INTRODUZCA EL MODULO M ="; 

120 INPUT M 

130 PRINT 

140 PRINT 

150 PRINT "RESTOS CUADRATICOS (MODULO "¿Mm3">” 

160 PRINT 

170 FOR I=1 TO M 

180 C=IXI 

190 D=C/M 

200 R=C-MXINT(C/M) 

210 PRINT 1;""2 CONGRUENTE CON "3 R3 "MODULO”;M 

220 NEXT I 

230 END 
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ejercicios resueltos: 


¡A los restos cuadráticos módulo 24. 
SOLUCION: 


INTRODUZCA EL MODULO M =7? 24 


RESTOS CUADRATICOS (MODULO 243 ) 


1 “2 CONGRUENTE CON 1 MODULO 24 
2 2 CONGRUENTE CON 4 MODULO 24 
32 CONGRUENTE CON 9 MODULO 24 
4 2 CONGRUENTE CON  1éá MODULO 24 
5 “2 CONGRUENTE CON 1 MODULO 24 
6 *2 CONGRUENTE CON 12 MODULO 24 
7 *2 CONGRUENTE CON 1 MODULO 24 
8 *2 CONGRUENTE CON 16 MODULO 24 
9 *2 CONGRUENTE CON 9 MODULO 24 
10 *2 CONGRUENTE CON 4 MODULO 24 
11 *2 CONGRUENTE CON 1 MODULO 24 
12 *2 CONGRUENTE CON O MODULO 24 
13 “2 CONGRUENTE CON 1 MODULO 24 
14 72 CONGRUENTE CON 4 MODULO 24 
15 *2 CONGRUENTE CON 9 MODULO 24 


16 *2 CONGRUENTE CON 16 MODULO 24 
17 *2 CONGRUENTE CON 1 MODULO 24 
13 72 CONGRUENTE CON 12 MODULO 24 
19 *2 CONGRUENTE CON 1 MODULO 24 
20 *2 CONGRUENTE CON 16 MODULO 24 
21 *2 CONGRUENTE CON 9 MODULO 24 
22 "2 CONGRUENTE” CON 4 MODULO 24 
23 2 CONGRUENTE CON 1 MODULO 24 
24 72 CONGRUENTE CON O MODULO 24 


Li Formar los restos cuadráticos módulo 11 
SOLUCION: 


INTRODUZCA EL MODULO M =? 11 


RESTOS CUADRATICOS (MODULO 11 ) 


1 2 CONGRUENTE CON 1 MODULO 11 
2 *2 CONGRUENTE CON 4 MODULO 11 
3 2 CONGRUENTE CON 9? MODULO 11 
4 2 CONGRUENTE CON 5 MODULO 11 
5 2 CONGRUENTE CON 3 MODULO 11 
6 *2 CONGRUENTE CON 3 MODULO 11 
7 *2 CONGRUENTE CON 5 MODULO 11 
8 *2 CONGRUENTE CON 9 MODULO 11 
9 *2 CONGRUENTE CON 4 MODULO 11 


10 *2 CONGRUENTE CON 1 MODULO 11 
11 22 CONGRUENTE CON O MODULO 11 
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3. Formar los restos cuadráticos módulo 17. 


SOLUCION: 


NUMEROS CONGRUENTES 


INTRODUZCA EL MODULO M =?17 


RESTOS 


YO yodgwadN- 


22 
ee 
2.2 
2 
22 
ez 
22 
eL 
22 
22 
Sd 
£z 
“ne 
22 
22. 
22 
22 


CUADRATICOS 


CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 
CONGRUENTE 


(MODULO 17 ) 


CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 
CON 


1 MODULO 17 

4 MODULO 17 

9 MODULO 17 

16 MODULO 17? 

8 MODULO 17 

2 MODULO 17 

15 MODULO 12? 

13 MODULO 17 

13 MODULO 17? 
15 MODULO 17 
2 MODULO 17 
8 MODULO 17 
16 MODULO 17? 
9 MODULO 17? 
4 MODULO 17? 
1 MODULO 17 
O MODULO 17 


FACTORIAL DE UN NUMERO 


introducción: 


núm 


que 


Este programa calcula el factorial de un número natural. Si el 
ero es mayor que 69, el programa imprime un mensaje en el sentido de 


el número pedido es demasiado grande por exceder de 99 cifras. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 


REM ISR 
REM 
REM CALCULO DEL FACTORIAL 
REM 
REM DE UN NUMERO 
REM 
REM RN 
PRINT 
PRINT "QUE FACTORIAL DESEA HALLAR N ="; 
INPUT N 
IF N>69 THEN GOTO 270 
1I=0 
F=1 
I=I+1 
F=FX1 
IF I<N THEN GOTO 160 
PRINT "EL FACTORIAL DE”;3N;5"ES = "jF 
PRINT 
PRINT 
PRINT "DESEA REALIZAR OTRO CALCULO ? (S/N)*"; 
INPUT Cs$ 
IF C$="N" THEN GOTO 290 
PRINT 
GOTO 100 
PRINT "EL NUMERO PEDIDO ES DEMASIADO GRANDE EXCEDE DE 99 CIFRAS" 
GOTO 200 
END 
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ejercicios resueltos: 


Eine los siguientes números factoriales: 
10! . 
SOLUCION: 


QUE FACTORIAL DESEA HALLAR N =? ? 
El FACTORIAL DE +? ES = 5040 


DESEA REALIZAR OTRO CALCULO ? (S/N)S 


QUE FACTORIAL DESEA HALLAR N =? 17 
EL FACTORIAL DE 17 ES = 3.5568743E+14 


DESEA REALIZAR OTRO CALCULO ? (S/N)? S 


QUE FACTORIAL DESEA HALLAR N =? 11 
EL FACTORIAL DE 11 ES = 39916800 


DESEA REALIZAR OTRO CALCULO ? (S/N)? S 


QUE FACTORIAL DESEA HALLAR N =? 10 
EL FACTORIAL DE 10 ES = 3628800 


NUMERO DE CIFRAS DEL FACTORIAL DE UN 
NUMERO 


introducción: 


Este programa cálcula el número de cifras del factorial de un nú- 


mero. El procedimiento esta basado en lo siguiente: 


NI = N(N-1)(N-2) . . . 3.2.1 
A = logN: = log(N(N-1) (N-2) . . . 3.2.1) = 
= log N + log(N-1) + log(N-2) + ... + log3 + log2 + logl 


Como en la mayoría de los microordenadores la función logaritmo ne 
periano se expresa por LOG; por eso el logaritmo decimal lo expresamos co 


mo: 
LOG (1) 


LOG (10) 


listado del programa: 


10 REM IRRRRRRORRRRRAROROARARARDRARRRRRRDRRRRORARRRDRRRDRDORORDERORORRRRRRRROREORADORORDOOAA 
20 REM 


30 REM NUMERO DE CIFRAS DEL 
40 REM 

50 REM FACTORIAL DE UN, NUMERO 
60 REM 


70 REM IRRADIA 
100 PRINT 

110 PRINT " QUE FACTORIAL DESEA HALLAR N =";5 
120 INPUT N 

130 A=0 

140 FOR I=N TO 1 STEP -1 

150 A=A+LOG(1)/LOG(10) 

160 NEXT 1 

170 B=INT(A)+1 

180 PRINT N;j"FACTORIAL TIENE"5B;5"CIFRAS" 

190 PRINT : 

200 PRINT 

210 PRINT 
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220 PRINT "DESEA REALIZAR OTRO CALCULO ? (S/N)*"5 
230 INPUT Cs$ 

240 IF C$="N" THEN GOTO 270 

250 PRINT 

260 GOTO 100 

270 END 


ejercicios resueltos: 


1. Calcular el número de cifras de los siguientes números factoriales: 


50! 300! 40! 80! 1000: 
SOLUCION: 


QUE FACTORIAL DESEA HALLAR N =? 50 
50 FACTORIAL TIENE 65 CIFRAS 


DESEA REALIZAR OTRO CALCULO ? (S/N)? S 


QUE FACTORIAL DESEA HALLAR =? 300 
300 FACTORIAL TIENE 615 CIFRAS 


DESEA REALIZAR OTRO CALCULO ? (S/N)? S 


QUE FACTORIAL DESEA HALLAR N =7? 40 
40 FACTORIAL TIENE 48 CIFRAS 


DESEA REALIZAR OTRO CALCULO ? (S/N)?S 


QUE FACTORIAL DESEA HALLAR N =? 80 
80 FACTORIAL TIENE 119 CIFRAS 


DESEA REALIZAR OTRO CALCULO ? (S/N)? S 


QUE FACTORIAL DESEA HALLAR N =? 1000 
1000 FACTORIAL TIENE 2568 CIFRAS 


FACTORIAL DE UN NUMERO CON TODAS SUS CIFRAS 


introducción: 


Este programa sirve para obtener el factorial de un número natural 
con todas sus cifras. 

Es este un caso de precisión ampliada, dado que el n*14! excede 
de 10 cifras que es la presentación más usual en la mayor Ía de los micro 
ordenadores. 

El programa es muy lento debido al gran número de operaciones que 


hay que realizar. 


listado del programa: 


10 REM IRRADIA III III IIA: 
20 REM 


30 REM FACTORIAL DE UN NUMERO 
490 REM 

50 REM CON TODAS sus CIFRAS 

60 REM 


70 REM IRRRRRRRRRRRRRORORARARROARARARAOARARORDEAREOREROORROREOOIOOIAIOOIAIO III 
100 DIM C (300) 

110 PRINT "QUE FACTORIAL DESEA HALLAR N ="; 

120 INPUT N 

130 PRINT 

140 A=0 

150 B=1 

160 C(1)=1 

170 PRINT "EL FACTORIAL DE ";N;"CON TODAS SUS CIFRAS ES =" 
180 FOR I=1 TO N 

190 D=B-2 

200 B=1 

210 F=A+IXC(B) 

220 A=INT(F/1E?) 

230 C(B)=F-AX1E? 

240 IF D<B AND F=0 THEN GOTO 270 

250 B=B+1 

260 GOTO 210 

270 NEXT 1 

280 PRINT 
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——_—_A _ —______ 


290 B=B-1 

300 FOR F=B TO 1 STEP -1 

310 IF C(F)=0 THEN GOTO 520 

320 G=7?-INT(LOG(C(F))/LOG(10)) 

330 GOTO 360 

340 NEXT F 

350 GOTO 540 

360 ON G GOTO 380,400, 420, 440, 460, 480,500 
370 STOP 


380 PRINT " "3C(F)5 
390 GOTO 340 

400 PRINT " 0”3C(F);5 
410 GOTO 340 

420 PRINT * 00*3C(1F)5 
430 GOTO 340 

440 PRINT " 000"3C(F)5 
450 GOTO 340 

460 PRINT " 0000*";C(F);5 


470 GOTO 340 
480 PRINT " 
490 GOTO 340 
500 PRINT " 
510 GOTO 340 
520 PRINT " 
530 GOTO 340 
540 END 


00000" ;3C(F);5 
000000";C(F)5 


0000000"; 


ejercicios resueltos: 


1. Calcular con todas sus cifras 120 . 
SOLUCION: 


QUE FACTORIAL DESEA HALLAR N =? 120 


EL FACTORIAL DE 120 CON TODAS SUS CIFRAS ES = 


0000 668 9502913 4491270 5758811 8054090 37253867 5274633 
3138029 8102956 7135230 16333557 2449629 38936687 4165271 
9849813 o 815763 7893214 o 905525 3440858 9408121 8598984 
8111438 9650005 2649605 2125696 o000000 0000000 0000000 0000000 


9% Calcular con todas sus cifras 300! . 


SOLUCION: 


QUE FACTORIAL DESEA HALLAR N =7? 300 


EL FACTORIAL DE 300 CON TODAS SUS CIFRAS ES = 


O 306057 5122164 4063603 5370461 2972686 2938858 8804173 
5769994 1677674 1259476 5331767 1686746 5515291 4224775 
7334993 9147888 7017263 6886426 3907759 00 31542 2684292 
7906974 5598412 2547693 o 2719549 6040080 1221577 6252176 
8542559 6535690 3506788 7252643 2189626 4299365 2045764 
4883038 8909753 9434896 2543605 3225980 7765212 7082243 
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75 


7639449 1201286 7867536 8305712 2936819 4364995 
16464502 2771650 Oo 185176 5464693 4011222 6034729 
3325858 3506870 1501697 9416885 O 353752 1375549 
6407157 1548302 8228493 7952636 5801452 3523315 
2334367 9925459 4093276 8206080 6223281 2387383 


6460498 
7240663 
1028912 
6936482 
8808170 


4960000 o000000 0000000 0000000 o0000000 0000000 0000000 0000000 


0000000 0000000 0000000 


3. Calcular con todas:sus cifras 70! . 


SOLUCION: 


QUE FACTORIAL DESEA HALLAR N =? 70 
EL FACTORIAL DE 70 CON TODAS SUS CIFRAS ES = 
0000 119 7857166 9969891 2960727 8372168 9098736 


4254642 5857555 3628646 2800958 2789845 3196800 
0000000 


4589381 
0000000 


COMBINACIONES SIN REPETICION 


introducción: 


Este programa sirve para calcular, el número de combinaciones sin 
repetición que se pueden hacer con M objetos tomados de N en N. 

La ejecución es extremadamente simple,se podría mejorar el progra- 
ma, añadiendo la instrucción: 145 IF N> M-N THEN N = M-N Esto simpli- 


fica mucho los cálculos ya que en lugar de calcular: 


40 40 
(38) calcula (0) ) 


por la propiedad de los números combinatorios. 


listado del programa: 


10 REM RR IIIIIIIRAA 
20 REM 

30 REM COMBINACIONES SIN 

90 REM 

SO REM REPETICION 

60 REM 

70 REM III III III III: 
100 PRINT 

110 PRINT"NUMERO TOTAL DE OBJETOS M="; 

120 INPUT M 

130 PRINT "TAMANO DE LOS SUBCONJUNTOS N="; 

140 INPUT N 

150 PRINT:IF N=0 THEN C=1: GOTO 210 

160 IF N>M THEN 290 

169 REM - CALCULO DE LAS COMBINACIONES SIN REPETICION - 

170 C=1 

180 FOR J=1 TO N 

190 C=CX (M-J+1)/J 

200 NEXT J 

210 PRINT "EL NUMERO DE COMBINACIONES DE"3M;3"ELEMENTOS TOMADOS”";N;"A"3N;3"ES=";5 
220 PRINT 

230 PRINT 

239 REM PARA REALIZAR MAS CALCULOS - 

240 PRINT "DESEA REALIZAR MAS CALCULOS ? (S/N)";5 

250 INPUT Cs 
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260 IF C$="N" THEN GOTO 310 

270 PRINT 

280 GOTO 100 

270 PRINT "INPOSIBLE M HA DE SER MAYOR QUE N" 
300 GOTO 240 

310 END 


ejercicios resueltos: 


1... una reunión de 30 personas se decide formar comisiones con 6 
personas para estudiar un cierto plan. ¿Cuántas comisiones diferentes se 
pueden formar?. 

SOLUCION: 


NUMERO TOTAL DE OBJETOS M=? 30 
TAMANO DE LOS SUBCONJUNTOS N=? 6 


EL NUMERO DE COMBINACIONES DE 30 ELEMENTOS TOMADOS 6 A 6 ES= 593775 


Ze En cada programa de radio intervienen cuatro locutores. Si una ca. 
dena de radio dispone de 20 locutores, ¿de cuántas formas distintas se 
puede presentar un programa? . 

SOLUCION: 


NUMERO TOTAL DE OBJETOS mM=? 20 
TAMANO DE LOS SUBCONJUNTOS N=? 4 


EL NUMERO DE COMBINACIONES DE 20 ELEMENTOS TOMADOS 4 A 4 ES= 4845 


3. La plantilla de un equipo de fútbol está compuesta por tres porte- 
ros, siete defensas, cinco medios y 8 delanteros. ¿Cuántas alineaciones 
distintas podrá formar el entrenador, suponiendo que cada jugador solamen 
te puede ser alineado en su demarcación?. Nota: Un equipo de futbol se 


compone de un portero, tres defensas, dos medios y cinco delanteros. 


SOLUCION: 


NUMERO TOTAL DE OBJETOS M=? 3 
TAMANO DE LOS SUBCONJUNTOS N=? 1 


EL NUMERO DE COMBINACIONES DE 3 ELEMENTOS TOMADOS 1 A 1 ES= 3 


DESEA REALIZAR MAS CALCULOS ? (S/N)? S 
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NUMERO TOTAL DE OBJETOS M=? 7? 
TAMANO DE LOS SUBCONJUNTOS N=? 3 


EL NUMERO DE COMBINACIONES DE 7? ELEMENTOS TOMADOS 3 A 3 ES= 35 


DESEA REALIZAR MAS CALCULOS ? (S/N)? S 


NUMERO TOTAL DE OBJETOS mM=? 5 
TAMAÑO DE LOS SUBCONJUNTOS N=? 2 


EL NUMERO DE COMBINACIONES DE 5 ELEMENTOS TOMADOS 2 A 2 ES= 10 


DESEA REALIZAR MAS CALCULOS ”? (S/N)? S 


NUMERO TOTAL DE OBJETOS mM=? 8 
TAMANO DE LOS SUBCONJUNTOS N=? 5 


EL NUMERO DE COMBINACIONES DE 8 ELEMENTOS TOMADOS 5 A 5 ES= 56 


El número de alineaciones será: e 1” Cc A Es 
, 


a 
1 


3.35.10.56 


58800 


4. ¿Cuantos segmentos se pueden formar con los vértices de un octó 


gono? ¿Y un decágono?. 
SOLUCION: 


NUMERO TOTAL DE OBJETOS M 
TAMANO DE LOS SUBCONJUNTOS N 


EL NUMERO DE COMBINACIONES DE 8 ELEMENTOS TOMADOS 2 A 2 ES= 28 


DESEA REALIZAR MAS CALCULOS ”? (S/N) 


NUMERO TOTAL DE OBJETOS M=? 
TAMANO DE LOS SUBCONJUNTOS N=? 


EL NUMERO DE COMBINACIONES DE 10 ELEMENTOS TOMADOS 2 A 2 ES= 45 


VARIACIONES SIN REPETICION 


introducción: 


Este programa sirve para calcular el número de variaciones sin re- 
petición de M objetos tomados de N en uN. 

En caso de que, por error, el usuario introduzca un valor de N ma- 
yor que M el programa emite un mensaje en el sentido de que M ha de ser 


mayor o igual que N. 


listado del programa: 


10 REM 3498924009200 
20 REM 

30 REM VARIACIONES SIN 
40 REM 

50 REM REPETICION 

60 REM 

70 REM IRRRRRRRRRRRDRRRRRRRRRRRRRRRRDRRROROROARARORDORDARDOARDARDARDOROORDEORORRERAORREREI IIA 
100 PRINT 

110 PRINT"NUMERO TOTAL DE OBJETOS M="; 

120 INPUT Mm 

130 PRINT "TAMANO DE LOS SUBCONJUNTOS N="; 

140 INPUT N 

150 PRINT:IF N=0 THEN U=1: GOTO 210 

160 IF N>M THEN 290 

169 REM - CALCULO DE LAS VARIACIONES SIN REPETICION - 

170 V=1 

180 FOR J=1 TO N 

190 V=VX(M-J+1) 

200 NEXT J 

210 PRINT "EL NUMERO DE VARIACIONES DE”";5M;5 "ELEMENTOS TOMADOS”5N;3"A"53N5”ES="53U 
220 PRINT Él 

230 PRINT 

239 REM - PARA REALIZAR MAS CALCULOS - 

240 PRINT "DESEA REALIZAR MAS CALCULOS ? (S/N)”; 

250 INPUT Cs$ 

260 IF C$="N" THEN GOTO 310 

270 PRINT 

280 GOTO 100 

290 PRINT "INPOSIBLE M HA DE SER MAYOR QUE N” 

300 GOTO 240 

310 END 


80 COMBINATORIA 


ejercicios resueltos: 


1. ¿De cuántos modos diferentes se pueden repartir dos premios distin 


tos entre Angel,Javier , Pablo y Daniel, de modo que ninguno de ellos re- 


ciba los dos premios?. 
SOLUCION: 


NUMERO TOTAL DE OBJETOS M= 


?4 
TAMANO DE LOS SUBCONJUNTOS N=? 2 


EL NUMERO DE VARIACIONES DE 4 ELEMENTOS TOMADOS 2 A 2 ES= 12 


Zi Con las letras de la palabra FUTBOL, ¿cuántas palabras de 4 letras 


se pueden formar?¿cuántas empiezan por vocal y terminan también en vocal? 
SOLUCION: 


1%) 
NUMERO TOTAL DE OBJETOS M= 
TAMANO DE LOS SUBCONJUNTOS N= 


EL NUMERO DE VARIACIONES DE 6 ELEMENTOS TOMADOS 4 A 4 ES= 360 
2?) 

NUMERO TOTAL DE OBJETOS M= 
TAMANO DE LOS SUBCONJUNTOS N= 


EL NUMERO DE VARIACIONES DE 2 ELEMENTOS TOMADOS 2 A 2 ES= 2 


DESEA REALIZAR MAS CALCULOS ? (S/N)? S 


NUMERO TOTAL DE OBJETOS mM 
TAMANO DE LOS SUBCONJUNTOS N= 


EL NUMERO DE VARIACIONES DE 4 ELEMENTOS TOMADOS 2 A 2 ES= 12 


El resultado pedido es: Va 2 A Va,2 = 2.12 = 24 


3. ¿Cuántos números de tres cifras sin repetirse ninguna se pueden for 
mar con los dígitos 1,2,3,4,5,6,7,8 y 9? 
SOLUCION: 


NUMERO TOTAL DE OBJETOS mM=? 9 
TAMANO DE LOS SUBCONJUNTOS N=? 3 


EL NUMERO DE VARIACIONES DE 9 ELEMENTOS TOMADOS 3 A 3 ES= 504 


FORMACION ORDENADA DE LAS VARIACIONES SIN 
REPETICION 


introducción: 


Este programa sirve para formar ordenadamente las variaciones sin 
repetición de 5 elementos tomados de 3 en 3. 

Es necesario introducir los elementos (letras o números) ordenados 
con el fin de que las variaciones salgan ordenadas. 


Analogamente a como se ha hecho en este caso para V se puede ha 


463 
cer para Moo Ñ ahora bien es preciso hacer ver, que a medida que el número 


de objetos aumenta, la programación siendo análoga se hace más compleja. 


listado del programa: 


10 REM 3298290989099) 0RRORRRRORRORRORRORARDORDORORDEORDORDREARDACDOCONAR 
20 REM 


30 REM FORMACION OR D ENADA DE LAS 

40 REM 

50 REM VARIACIONES SIN REPETICION 

60 REM 

70 REM DE 5 ELEMENTOS TOMADOS 3 A 3 
80 REM 


9 0 REM IRIS III 
100 PRINT 

110 PRINT "ESCRIBA POR ORDEN ALFABETICO LAS CINCO LETRAS QUE QUIERE VARIAR" 
120 PRINT 

130 INPUT A$(1),A$(2),A$(3),A$(4),A$(5) 

140 PRINT no 

150 FOR Ji=1 TO 54 ds 

160 FOR J2=1 TO 5“ “ 

170 IF J2=J1 THEN GOTO 230 

180 FOR J3=1 TO 5 < y 

190 IF J3=J1 THEN GOTO 220 

200 IF J3=32 THEN GOTO 220 

210 PRINT A$(J1);A$(J2);A$(J3), 

220 NEXT J3 

230 NEXT 32 

240 NEXT J1 

250 END 


82 COMBINATORIA 


ejercicios resueltos: 


1. Formar ordenadamente las variaciones ternarias sin repetición que 
se pueden hacer con las letras A,B,C,D,E. 
SOLUCION: 


ESCRIBA POR ORDEN ALFABETICO LAS CINCO LETRAS QUE QUIERE VARIAR 


?A B e D E 

ABC ABD ABE ACB ACD ACE ADB ADC ADE AEB 
AEC AED BAC BAD BAE ECA BCD BCE BDA BDC 
BDE BEA BEC BED CAB CAD CAE CBA CBD CBE 
CDA CDB CDE CEA CEB CED DAB DAC DAE DEA 
DEC DBE DCA DCB DCE DEA DEB DEC EAB EAC 
EAD EBA EBC EBD ECA ECB ECD EDA EDB EDC 


Zo Formar ordenadamente las variaciones ternarias sin repetición que 
se pueden hacer con los dígitos. 1,2,3,4 y 5. 
SOLUCION: 


ESCRIBA POR ORDEN ALFABETICO LAS CINCO LETRAS QUE QUIERE VARIAR 


?1 2 3 4 5 

123 124 125 132 134 135 142 143 145 152 
153 154 215 214 215 231 234 235 241 243 
245 251 253 254 312 314 315 321 324 325 
341 342 345 351 352 354 412 413 415 421 
423 425 31 432 4935 451 452 453 512 513 


514 521 523 524 531 3532 534 541 542 5953 


PERMUTACIONES SIN REPETICION 


introducción: 


sin 
el 


El presente programa sirve para calcular el número de permutaciones 
repetición de N objetos. El programa es análogo al que permite hallar 


factorial de N. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
139 
140 
150 
160 
170 
180 
190 
200 
209 
210 
220 
230 
240 
250 
260 


REM IRRADIA: 
REM 
REM PERMUTACIONES SIN 
REM 
REM REPETICION 
REM 
REM IRRRRRRDRRRRRRRRRRORRRORARRDRRRRRRORORAORORDARDARAREORRORORDRRROARARARRRORARERDEARDAOARDARE 
PRINT 

PRINT"NUMERO TOTAL DE OBJETOS N=" 
INPUT N 

PRINT 

REM - CALCULO DE LAS PERMUTACIONES SIN REPETICION - 

P=1 

FOR J=1 TON 

P=PX(N-J+1) 

NEXT J 

PRINT "EL NUMERO DE PERMUTACIONES DE";3N;5"ELEMENTOS ES=";P 
PRINT 

PRINT 

REM - PARA REALIZAR MAS CALCULOS - 

PRINT "DESEA REALIZAR MAS CALCULOS ? (S/N)*;5 

INPUT Cs 

IF C$="N" THEN GOTO 260 

PRINT 

GOTO 100 

END 
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ejercicios resueltos: 


¡a ¿Cuántas palabras distintas se pueden formar con las letras de la 


palabra PERMUTACION?.¿Cuántas empiezan por la letra E y terminan en ON?. 
SOLUCION: 


NUMERO TOTAL DE OBJETOS N=2 11 


¿ 


EL NUMERO DE PERMUTACIONES DE 11 ELEMENTOS ES= 39916800 
DESEA REALIZAR MAS CALCULOS ? (S/N)? S 


NUMERO TOTAL DE OBJETOS N=? 8 


EL NUMERO DE PERMUTACIONES DE 8 ELEMENTOS ES= 40320 


DESEA REALIZAR MAS CALCULOS ”? (S/N)? N 


Ze Calcular el número de aplicaciones biyectivas del conjunto 
A =/ vocales ? en si mismo. 
SOLUCION 


NUMERO TOTAL DE OBJETOS N=? 5 


EL NUMERO DE PERMUTACIONES DE S ELEMENTOS ES= 120 


FORMACION ORDENADA DE LAS PERMUTACIONES 


introducción: 


SIN REPETICION 


Este programa permite formar ordenadamente las permutaciones sin 


repetición de 5 elementos. Si se desea que los grupos de las permutacio- 


nes aparezcan ordenados, es necesario introducir los 5 elementos (letras 


o números) ordenados. 
Análogamente a como se ha hecho para 5 se haría para N, ahora bien 


teniendo en cuenta, que a medida que N crece el programa se va haciendo más 


com 


plicado. 


listado del programa: 


10 
20 

30 

40 

50 

60 

70 

8o 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


REM IRRRBRRRORORARARARRARARRRRRRRRDRDORRRRRRRAREEAIIAAIAIAIA III 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


sI 


FORMACION ORDENADA 
E LAS PERMUTACIONES 
REPETICION DE S LETRAS 


REM IRRADIA III RARA 


PRINT 


PRINT "ESCRIBA POR ORDEN ALFABETICO LAS CINCO LETRAS QUE QUIERE PERMUTAR* 


PRINT 


INPUT A$(1),4$(2),A$(3),A$(4),A5$(5) 


PRINT 

FOR Ji=1 
FOR J2=1 
IF J2=J1 
FOR J3=1 
IF J3=J1 
IF J3=J2 
FOR J4=1 
IF J4=J1 
IF J4=J2 
IF J4=J3 


J3S=15-(J1+J2+J33+J4) 


TO 5 
TO 5 
THEN 
TO 5 
THEN 
THEN 
TO 5 
THEN 
THEN 
THEN 


GOTO 


GOTO 
GOTO 


GOTO 
GOTO 
GOTO 


290 


280 
280 


270 
270 
270 


PRINT AS(J1)3A$(J2);A$(J3);A$(J4);A$(J5), 


NEXT J4 
NEXT J3 
NEXT J32 
NEXT J1 
END 
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ejercicios resueltos: 


E: Formar ordenadamente todas las permutaciones que se pueden hacer 
con las 5 vocales. 
SOLUCION: 


ESCRIBA POR ORDEN ALFABETICO LAS CINCO LETRAS QUE QUIERE PERMUTAR 


PA E I 0 UÚ 


AEIOU AEIUO AEOIU AEQUI AEUIO AEUOI AIEOU AIEUO AIOEU AIQUE 
AIUEO AIUOE AOE IU AOEUI AOIEU AOIUE AQUE 1 AQUIE AUEIO AUEOI 
AUIEO AUIOE AUOEI AUOIE EAIOU EAIUO EAOIU EAQOUI EAUIO EAUOI 
EIAOU EIAUO EIOAU EIOUA EIUAO EIUOA EOAIU EOAUI EOIAU EOIUA 
EOQUAI EQUIA EUAIO EUADI EUIAO EUIOA EUODAI EUOIA IAEOU IAEUO 
IAOEU IAQUE IAUVEO TIAUOE IEAOU IEAVO IEOAU IECQUA IEUAO IEUODA 
IOAEU IOAUE IOEAU IOEUA IOUAE IOUEA IUAEO IUAODE IUEAO IUEODA 
IUDAE IUDEA OAEIU DAEUI OAIEU DAIUE OAUEI OAUIE DEAIU DEAUI 
OEIAU OEIUA OEUAI OEUIA OIAEU OIAUE DIEAU OIEUA OIUAE OIUEA 
OUAEI QUAIE OUEAI QUEIA OUIAE OUIEA UAEIO UAEOI UAIEO UAIOE 
UAOEI UADIE UEAIO UEAOI UEIAO UVEIOA UEDAI UEDIA UIAEO UIAOE 
UTIEAO UIEOA UIOAE UIOEA UDAEI UDAIE UOEAI UDEIA UOIAE UDIEA 


Le Formar todos los números de 5 cifras que se pueden hacer con los dí 
gitos 3,5,7,8 y 9, teniendo en cuenta que no se puede repetir ninguno. 
SOLUCION: 


a 
Y 
y 
o 
o 


35789 35798 35879 35897 35978 35987 37589 37598 37859 37895 
37958 37985 38579 38597 38739 38795 389357 38975 39578 39587 
39738 39785 39857 39875 53789 53798 53879 53897 53978 53987 
57389 57398 57839 57893 57938 57983 538379 58397 58739 58793 
58937 53973 59378 59387 59738 59783 59837 59873 73589 723598 
73859 73895 73958 73985 73389 73398 73839 753893 235938 275983 
78359 78395 78539 78593 78935 78933 79358 29385 279538 79583 
79835 729833 323579 283597 83759 83795 83957 23975 385379 85397 
85739 25793 285937 35973 87359 87395 87539 875393 87935 37933 
89357 89375 29537 89573 89735 897533 93578 93587 93758 93785 
93857 93875 9537 25387 95738 93783 953337 93873 97358 97385 
97538 97583 97835 97853 98357 98375 98537 98573 98735 98753 


COMBINATORIA SIN REPETICION 


introducción: 


Este programa es un resumen de los tres anteriores, obteniendose en 


una sola ejecución las combinaciones sin repetición de M elementos tomados 


N a N, las variaciones sin repetición de M elementos tomados N a N y las 


permutaciones sin repetición de N elementos. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


REM IRRRRRRRRRRRORROARARARARDARRDRRORARRRRRORRRORARRRROARARDARERDARRRORRORRERDERDEARDOREAREOREAREAE 
REM 

REM COMBINACIONES = VARIACIONES 

REM 

REM Y PERMUTACIONES SIN REPETICION 

REM 

REM 2488020900202 0N0RRRRDRRRRRRRRRRRRRIEEIE 
PRINT 

PRINT"NUMERO TOTAL DE OBJETOS Mm ="; 

INPUT M 

PRINT "TAMANO DE LOS SUBCONJUNTOS N ="; 

INPUT N 

PRINT:IF N=0 THEN C=1:V=1:P=1:GOTO 250 

IF N>M THEN GOTO 360 

C=1 

V=1 

P=1 

FOR J=1 TON 

C=CX (M-J+1)/J 

V=UX (M-J+1) 

P=PX(N-J+1) 

NEXT J 

PRINT "EL NUMERO DE COMBINACIONES DE”;M;"ELEMENTOS TOMADOS";N;"A"3N;5"ES ="3C 
PRINT "EL NUMERO DE VARIACIONES DE"jM5"ELEMENTOS TOMADOS”"5N;5"A"53N3"ES ="3U 
PRINT "EL NUMERO DE PERMUTACIONES DE"3N5"ELEMENTOS ES =";P 

PRINT 

PRINT 

PRINT "DESEA REALIZAR MAS CALCULOS ? (S/N)"; 

INPUT Cs$ 

IF C$="N" THEN GOTO 380 

PRINT 

PRINT 

GOTO 100 

PRINT "IMPOSIBLE: M HA DE SER MAYOR QUE N" 

GOTO 280 

END 


88 COMBINATORIA 


ejercicios resueltos: 


E Hallar: 66,2 ; V 


SOLUCION: 


6,2 


NUMERO TOTAL DE OBJETOS M=?6 
TAMANO DE LOS SUBCONJUNTOS N =? 2 


EL NUMERO DE COMBINACIONES DE 6 ELEMENTOS TOMADOS 2 A 2 ES = 15 
EL NUMERO DE VARIACIONES DE ó ELEMENTOS TOMADOS 2 A 2 ES = 30 
EL NUMERO DE PERMUTACIONES DE 2 ELEMENTOS ES = 2 


IMEI C 
SOLUCION: 


< 
tU 


15,3 


NUMERO TOTAL DE OBJETOS M=? 15 
TAMAÑO DE LOS SUBCONJUNTOS N =? 3 


EL NUMERO DE COMBINACIONES DE 15 ELEMENTOS TOMADOS 3 A 3 ES = 455 


EL NUMERO DE VARIACIONES DE 15 ELEMENTOS TOMADOS 3 A 3 ES = 2730 
EL NUMERO DE PERMUTACIONES DE 3 ELEMENTOS ES = 6 


3. Hallar: C 


8,2 YE o Pg 
SOLUCION: 
NUMERO TOTAL DE OBJETOS Mm =”? 8 
TAMANO DE LOS SUBCONJUNTOS N =? 2 


EL NUMERO DE COMBINACIONES DE 8 ELEMENTOS TOMADOS 2 A 2 ES = 28 
EL NUMERO DE VARIACIONES DE 8 ELEMENTOS TOMADOS 2 A 2 ES = 36 
EL NUMERO DE PERMUTACIONES DE 2 ELEMENTOS ES = 2 


COMBINACIONES CON REPETICION 


introducción: 


de 


de 


Este programa sirve para calcular las combinaciones con repetición 
M elementos tomados N a N. 


omo = 
€ CRu,N Cm+N-1,N 
las combinaciones sin repetición de M+N-1 elementos, tomados N a N. 


, entonces el programa se reduce al cálculo 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
"¿N 
210 
220 
230 
240 


REM IRRADIA 
REM 
REM COMBINACIONES 
REM 
REM CON REPETICION 
REM 
REM IRRRSRRIRRRASRRRRRRRRRORRRRRRRRRRRRRRRRRRRRRRRRRORRRRORRRRRORORARDAREORDOAROOERJA 
PRINT 
PRINT"NUMERO TOTAL DE OBJETOS M =="; 
INPUT mM 
PRINT "TAMANO DE LOS SUBCONJUNTOS N ="5 
INPUT N 
PRINT 
C=1 
FOR J=1 TO N 
C=CXA (M+N-J)/J 
NEXT J 
PRINT"EL NUMERO DE COMBINACIONES CON REPETICION DE";M;”OBJETOS TOMADOS";N;"A 
"ES ="3C 
PRINT 
PRINT 
PRINT "DESEA REALIZAR MAS CALCULOS ? (S/N)";5 
INPUT Cs$ 


250 IF C$="N" THEN GOTO 290 


260 


PRINT 


270 PRINT 
280 GOTO 100 
290 END 
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ejercicios resueltos: 


1. ¿Cuántos productos diferentes de cuatro factores pueden formarse 
con los números 3, 5, 7, y 97. 
SOLUCION: 


? 
ed 


NUMERO TOTAL DE OBJETOS M 
TAMANO DE LOS SUBCONJUNTOS N 


4 
4 


EL NUMERO DE COMBINACIONES CON REPETICION DE 4 OBJETOS TOMADOS 4 A 4 ES = 35 


7 Con 7 colores distintos de acuarelas, ¿cuántas mezclas se pueden 
formar tomando tres colores repetidos o no?. 
SOLUCION: 


NUMERO TOTAL DE OBJETOS Mm =? 7 
TAMANO DE LOS SUBCONJUNTOS N =? 3 


EL NUMERO DE COMBINACIONES CON REPETICION DE 7 OBJETOS TOMADOS 3 A 3 ES = 84 


3. ¿Cuántos términos tiene un polinomio homogéneo completo de grado 4 


con 10 variables X1X1 A Xip?- 
10+4-1 
SR10,4 + A 


SOLUCION: 


NUMERO TOTAL DE OBJETOS Mm =? 10 
TAMANO DE LOS SUBCONJUNTOS N =7? 4 


EL NUMERO DE COMBINACIONES CON REPETICION DE 10 OBJETOS TOMADOS 4 A 4 ES = 715 


VARIACIONES CON REPETICION 


introducción: 


Este programa permite calcular las variaciones con repetición de M 


objetos tomados N a N. 


La realización del programa es sencillísima debido a que: 
e 


VRBn y = M 


listado del programa: 


10 REM RRE III III OI III III IIA 
20 REM 

30 REM VARIACIONES 

40 REM 

50 REM Con RLE-P-E-T-E0CO T:¡D.N 

60 REM 

70 REM IRRADIA OI III III 
100 PRINT 

110 PRINT"NUMERO TOTAL DE OBJETOS Mm ="; 


120 INPUT Mm 

130 PRINT "TAMANO DE LOS SUBCONJUNTOS N ="; 

140 INPUT N 

150 PRINT 

160 V = MN 

170 PRINT "EL NUMERO DE VARIACIONES CON REPETICION DE”;M;"OBJETOS TOMADOS";N;"A” 


3N;5 


"ES ="34 


180 PRINT 

190 PRINT 

200 PRINT "DESEA REALIZAR MAS CALCULOS ? (S/N)"; 
210 INPUT Cs$ 

220 IF C$="N" THEN GOTO 260 

230 PRINT 

240 PRINT 

250 GOTO 100 

260 END 
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ejercicios resueltos: 


Losas quinielas son necesarias hacer para tener la seguridad 
de acertar los 14?. 
SOLUCION :: 


NUMERO TOTAL DE OBJETOS M=? 3 
TAMANO DE LOS SUBCONJUNTOS N =? 14 


EL NUMERO DE VARIACIONES CON REPETICION DE 3 OBJETOS TOMADOS 14 A 14 ES= 4782969 


yx ¿Cuantos números de 4 cifras repetidos o no se pueden formar con los 
dígitos * 1,2,3,4,5,6,7,8,9.? 
SOLUCION: 


NUMERO TOTAL DE OBJETOS mM 


Ed 
TAMANO DE LOS SUBCONJUNTOS N 4 


2 


EL NUMERO DE VARIACIONES CON REPETICION DE 9 OBJETOS TOMADOS 4 A 4 ES = óSól 


3. ¿Cuántas aplicaciones inyectivas distintas se pueden definir entre 
los conjuntos A = (1,3,5) B = (2,4,6,8) 
SOLUCION :: 


NUMERO TOTAL DE OBJETOS Mm =? 4 
TAMANO DE LOS SUBCONJUNTOS N =? 3 


EL NUMERO DE VARIACIONES CON REPETICION DE 4 OBJETOS TOMADOS 3 A 3 ES = 64 


PM capicuas de 8 cifras se pueden formar?. 
SOLUCION: 


NUMERO TOTAL DE OBJETOS Mm =? 10 
TAMANO DE LOS SUBCONJUNTOS N =? 4 


EL NUMERO DE VARIACIONES CON REPETICION DE 10 OBJETOS TOMADOS 4 A 4 ES = 10000 


DESEA REALIZAR MAS CALCULOS ? (S/N)? S 


NUMERO TOTAL DE OBJETOS Mm =? 10 
TAMANO DE LOS SUBCONJUNTOS N =? 3 


EL NUMERO DE VARIACIONES CON REPETICION DE 10 OBJETOS TOMADOS 3 A 3 ES = 1000 


Por tanto, el número de capicuas de 8 cifras es: 10000 - 1000 = 9000 


FORMACION ORDENADA DE LAS VARIACIONES CON 


REPETICION 


introducción: 


Este programa sirve para formar ordenadamente las variaciones con 


repetición de 5 elementos tomados 3 a 3. 


Es preciso introducir los elementos (letras o números) ordenados. 


Analogamente se podría hacer para otros valores de M y N. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


REM ROI 
REM 


REM FORMACION ORDENADA DE LAS 

REM 

REM VARIACIONES CON REPETICION 

REM 

REM DE S ELEMENTOS TOMADOS 3 A 3 

REM 

REM IRRRRRRIRRIRRRRORIRSRRIRSRRROIRIRRRR99R99RROIOIOIIRAAA 


PRINT 

PRINT "ESCRIBA POR ORDEN ALFABETICO LAS CINCO LETRAS QUE QUIERE VARIAR” 
PRINT 

INPUT A$(1),A$(2),A$(3),A$(4),A$(5) 
PRINT 

FOR Ji=1 TO S 

FOR J2=1 TO S 

FOR J3=1 TO S 

PRINT AS(J1);5A$(J32);A$(J3), 

NEXT J3 

NEXT J2 

NEXT J1 

END 


ejercicios resueltos: 


hac 


| ordenadamente las variaciones con repetición que se pueden 


er con las letras A,B,C,D y E, tomadas de tres en tres. 


SOLUCION: 


94 COMBINATORIA 


ESCRIBA POR ORDEN ALFABETICO LAS CINCO LETRAS QUE QUIERE VARIAR 


PA B c D E 

AAA AAB AAC AAD AAE ABA ABE ABC ABD ABE 
ACA ACB ACC ACD ACE ADA ADB ADC ADD ADE 
AEA AEB AEC AED AEE BAA BAB BAC BAD BAE 
BBA BBB BBC BBD BBE BCA BCB Bcc BCD BCE 
BDA BDE. BDC EDD BDE BEA BEB BEC BED BEE 
cAA CAB cAc CAD CAE CBA CBB CBC CBD CBE 
CccA CcCcB ccc CCD . CCE CDA CDB CDC CDD CDE 
CEA CEB CEC CED CEE DAA DAB DAC DAD DAE 
DBA DBB DBC DBD DBE DCA DCB DCcc DCD DCE 
DDA DDB DDcC DDD DDE DEA DEB DEC DED DEE 
EAA EAB EAC EAD EAE EBA EBB EBC EBD EBE 
ECA ECB ECC ECD ECE EDA EDB EDC EDD EDE 
EEA EEB EEC EED EEE 


de Con los dígitos 1,2,3,4 y 5 formar ordenadamente los números de 
3 cifras posibles. 
SOLUCION: 


ESCRIBA POR ORDEN ALFABETICO LAS CINCO LETRAS QUE QUIERE VARIAR 


?1 2 3 4 5 

111 112 113 114 115 121 122 123 124 123 
131 132 133 134 135 1941 142 143 194 145 
151 152 153 154 155 211 212 215 214 215 
221 222 223 224 225 231 232 233 234 235 
241 242 243 2494 245 251 252 253 254 235 
311 312 313 314 315 321 322 323 324 325 
331 332 333 334 335 341 342 343 344 345 
351 352 353 354 355 411 412 413 414 915 
421 422 423 424 425 431 432 433 434 435 
441 492 493 444 4945 451 452 453 454 455 
511 512 Ssi3 514 515 521 522 523 524 525 
531 532 533 534 535 541 542 543 5944 5495 


551 552 553 5549 555 


PERMUTACIONES CON REPETICION 


introducción: 


Este programa permite calcular las permutaciones con repetición. Pa 


ra ello primeramente el programa solicita el número de elementos que se re 


piten y luego cuántas veces cada uno de ellos. 


En la linea 389 se inicia la subrutina para el cálculo de los fac- 


toriales. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
z10 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


REM RR 299290909090000N000000% 
REM 
REM PERMUTACIONES 
REM 
REM CON RE -P-E TC CT C-1.0N 
REM 
REM IRRRRRRRRRIORIORIRRIRRIRRIRIRRIRRRR900902090090909009N90N0NDR0RRODOOAOIOIAAA 
PRINT 

PRINT"NUMERO TOTAL DE OBJETOS M =="; 

INPUT Mm 

N=M 

GOSUB 389 

FO=F 

PRINT "CUANTOS ELEMENTOS SE REPITEN"5 

INPUT R 

FOR J=1 TOR 

PRINT "CUANTAS VECES SE REPITE EL ELEMENTO";Jy 

INPUT N(J) 

N=N (J) 

GOSUB 389 

F(J)=F 

NEXT J 

P=1 

FOR J=1 TOR 

P=PXF (J) 

NEXT J 

a=FO/P 

PRINT 

PRINT 

PRINT "EL NUMERO DE PERMUTACIONES CON REPETICION DE";M;5"OBJETOS TALES QUE* 


96 COMBINATORIA 


330 FOR J=1 TO R 

340 PRINT "UN ELEMENTO SE REPITE"3N(J)5"VECES" 
350 NEXT J 

360 PRINT 

370 PRINT "ES IGUAL A ”;3Q 

380 END 

389 REri - SUBRUTINA PARA EL CALCULO DE FACTORIALES - 
390 I1=0 

400 F=1 

410 I=I+1 

420 F=FXI 

430 IF I<N THEN 410 

440 RETURN 


ejercicios resueltos: 


des En una hucha hay 3 duros, 3 pesetas, 4 monedas de 25 pesetas y dos 
monedas de 50 pesetas. ¿De cuántas maneras distintas pueden sacarse pieza 
por pieza de la hucha?. 
SOLUCION: 


NUMERO TOTAL DE OBJETOS Mm =? 12 
CUANTOS ELEMENTOS SE REPITEN? 4 


CUANTAS VECES SE REPITE EL ELEMENTO 1 ? 3 
CUANTAS VECES SE REPITE EL ELEMENTO 2 ? 3 
CUANTAS VECES SE REPITE EL ELEMENTO 3 ”? 4 
CUANTAS VECES SE REPITE EL ELEMENTO 4 ? 2 


EL NUMERO DE PERMUTACIONES CON REPETICION DE 12 OBJETOS TALES QUE 
UN ELEMENTO SE REPITE 3 VECES 
UN ELEMENTO SE REPITE 3 VECES 
UN ELEMENTO SE REPITE 4 VECES 
UN ELEMENTO SE REPITE 2 VECES 


ES IGUAL A 277200 


9 ¿De cuántas maneras se pueden permutar las letras de la palabra 
MATEMATICAS? 
SOLUCION: 


NUMERO TOTAL DE OBJETOS M=? 11 
CUANTOS ELEMENTOS SE REPITEN? 3 

CUANTAS VECES SE REPITE EL ELEMENTO 1 ? 2 
CUANTAS VECES SE REPITE EL ELEMENTO 2 ? 3 
CUANTAS VECES SE REPITE EL ELEMENTO 3 ? 2 


EL NUMERO DE PERMUTACIONES CON REPETICION DE 11 OBJETOS TALES QUE 
UN ELEMENTO SE REPITE 2 VECES 
UN ELEMENTO SE REPITE 3 VECES 
UN ELEMENTO SE REPITE 2 VECES 


ES IGUAL A 1663200 
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3. ¿Cuántas quinielas se necesitan rellenar para acertar con toda se- 
guridad un pleno donde han salido 6 unos, 5 equis y 3 doses?. 
SOLUCION : 


NUMERO TOTAL DE OBJETOS M=? 14 
CUANTOS ELEMENTOS SE REPITEN? 3 

CUANTAS VECES SE REPITE EL ELEMENTO 1 ? 6 
CUANTAS VECES SE REPITE EL ELEMENTO 2 ? S 
CUANTAS VECES SE REPITE EL ELEMENTO 3 ? 3 


EL NUMERO DE PERMUTACIONES CON REPETICION DE 14 OBJETOS TALES QUE 
UN ELEMENTO SE REPITE ó VECES 
UN ELEMENTO SE REPITE S VECES 
UN ELEMENTO SE REPITE 3 VECES 


ES IGUAL A 168168 


TRIANGULO DE TARTAGLIA 


introducción: 


La 


El presente programa sirve para formar el triángulo de Tartaglia. 


realización es muy simple, pues basta con tener en cuenta que, tanto el 


vértice como los extremos son iguales a la unidad y que cada fila se obtie 


ne 


de la anterior, por la siguiente propiedad de los números combinatorios: 


(5) + o) - 1 


listado del programa: 


10 

20 

30 

40 

50 

100 
110 
120 
130 
140 
149 
150 
160 
170 
180 
189 
190 
200 
210 
220 
229 
230 
240 
250 
260 
270 
280 
290 


REM RRA) 
REM 
REM TRIANGULO DE TARTAGLIA 
REM 
REM 2484880900000 
PRINT 
PRINT "CUANTAS FILAS DESEA HALLAR DEL TRIANGULO DE TARTAGLIA”; 
INPUT F 
PRINT 
DIM C(F,F) 
REM - EL VERTICE Y LOS EXTREMOS SON IGUALES A UNO - 
C(0,0)=1 
FOR M=1 TO F-1 
C(M,0)=1 
C(M,M)=1 
REM - POR LA PROPIEDAD DE LOS NUMEROS COMBINATORIOS OBTENEMOS EL RESTO - 
FOR N=1 TO M-1 
C(M,N)=C(M-1,N-1)+C(M-1,N) 
NEXT N 
NEXT Mm 
REM - IMPRESION DE LAS LINEAS - 
FOR M=0 TO F-1 
FOR N=0 TO mM 
PRINT C(M,N);5 
NEXT N 
PRINT 
NEXT mM 
END 
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ejercicios resueltos: 


E Formar la 15 primeras filas del triángulo de Tartaglia. 
SOLUCION: 


CUANTAS FILAS DESEA HALLAR DEL TRIANGULO DE TARTAGLIA? 15 


pa pa pa po po ju pus ps ps ps ps ps ps ps ps 


DON up UN 


Pa ha pa ba po 
LbUWUN-o 


10 
20 
35 
56 
84 
120 
165 
220 
286 
364 


5 1 
15 6 1 
35 21 7 1 
70 56 28 8 1 
126 126 84 36 9 1 
210 252 210 120 45 10 1 
330 462 3462 330 165 5355 11 1 
495 792 924 792 495 220 éé6 12 1 
715 1287? 1716 1716 1287 715 286 78 13 1 
1001 2002 3003 3432 3003 2002 1001 364 91 14 
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BINOMIO DE NEWTON 


introducción: 


M del binomio 


el 


Este sencillo programa sirve para calcular la potencia de exponente 


(A+B), 


basado en el desarrollo del binomio de Newton. 


Si en caso de error, el usuario introduce un exponente no natural 


programa informa sobre el error. 


listado del programa: 


10 

20 

30 

40 

50 

60 

?0 

100 
110 
120 
130 
140 
149 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


REM RR N908N9N00RRROROORRORRORORRREX 


REM 
REM 
REM 
REM DE 
REM 


DESARROLLO 


NEWTON 


DEL BINOMIO 


(A + B)"M 


REM ISR 0025020022002 IO 


PRINT 
PRINT 
INPUT M 


IF INT(M)<>M OR ABS(M)<>M THEN GOTO 230 


PRINT 

REM - FORMACION DE LOS COEFICIENTES 
FOR N=0 TO M 

C=1 

FOR J=1 TO N 

C=CX (M-J+1)/J 

NEXT J 
PRINT C;"xX 
NEXT N 
sTOP 
PRINT"M HA DE SER UN NUMERO NATURAL” 
PRINT 

GOTO 110 

END 


AU MN "AB" 3N3"+"5 


ejercicios resueltos: 


1. Calcular la potencia siguiente: (A + p)? 
SOLUCION: 


"ESCRIBA EL VALOR DEL EXPONENTE M ="; 


BINOMICOS - 
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ESCRIBA EL VALOR DEL EXPONENTE M =? 3 


1 XA? 3 XB” 0 + 3 XA?" 2 XAB" 1 + 3 XA" 1 XB" 2 + 1 XA" O AB” 3 


, E he 
Ze Calcular la potencia siguiente (A+B) 2 
SOLUCION: 


ESCRIBA EL VALOR DEL EXPONENTE M =? 12 


1 XA? 12 *XB" 0 + 12 XA” 11 AB” 1 + 66 XA” 10 X*B” 2 + 220 XA” 9 XB” 3 + 495 *A” 
32 AB" 9 + 792 XA" 7 ABE? S + 9294 XA" 6 AB" Ó6 + 792 XA" S XB" 7 + 495 XA” 4 *B” 
8 + 220 X*A* 3 XB" 9 + 66 X*A”* 2 XB” 10 + 12 XA" 1 XB” 11 + 1 XA” O AB” 12 


Eee 23 
3. Calcular la potencia siguiente: (A+B) 


SOLUCION: 


ESCRIBA EL VALOR DEL EXPONENTE M =? 23 


1 XA?" 23 *B* 0 + 23 *A?" 22 *B” 1 + 253 XA” 21 *XB” 2 + 1771 *A” 20 *XB” 3 + 8855 
*A?" 19 *B" 94 + 33699 XA” 18 XB” 5 + 100947 XA” 17 XB" 6 + 245157 XA” 16 XB” 7 + 

4790314 XA” 15 XB” 8 + 817190 X*A”" 14 XB”" 9 + 11494066 XA” 13 *B”" 10 + 1352078 *A-” 

12 *B” 11 + 1352078 *A” 11 *B” 12 + 1144066 XA” 10 XB” 13 + 817190 XA” 9 *XB” 

14 + 4905314 XA" 8 *XB” 15 + 245157 XA" 7 XB" 16 + 100947 XA” 6 *B”" 17 + 33649 


*A?" S XB” 18 + 2855 *A* 4 XxB”* 19 + 1771 XA" 3 *B” 20 + 253 XA" 2 *B”" 21 + 23 XA” 
1 XAB? 22 + 1 X*A* O AB” 23 


; 25 
4. Calcular la potencia siguiente: (A+B) 
SOLUCION: 


ESCRIBA EL VALOR DEL EXPONENTE M =? 25 


1 XA” 25 *XB” O + 25 XA” 24 XB” 1 + 300 *A” 23 XB” 2 + 2300 *A”* 22 XB” 3 + 

12650 *A” 21 *XB” 4 + 53130 XA” 20 XB” 5 + 177100 XA” 19 X*XB” 6 + 480700 XA” 18 
AB" 7 + 1081575 XA” 17 XB” 8 + 2042975 XA” 1ó XB” 9 + 3268760 XA” 15 *XB” 10 + 

4457400 XA” 14 XB” 11 + 5200300 XA” 13 *XB” 12 + 5200300 *A” 12 *B” 13 + 

4457400 *xA” 11 XB” 14 + 3268760 *A” 10 XB” 15 + 2042975 *A” 9 *xB” 16 + 1081575 
XA” 8 XB” 17 + 480700 *A” 7 XB” 18 + 177100 XA” 6 XB” 19 + 53130 XA” S XB” 20 +. 

12650 *A” 4 XB” 21 + 2300 XA” 3 *XB” 22 + 300 XA?" 2 XB? 23 + 25 XA” 1 XB” 249 + 

1 XA? O AB? 25 


VALOR NUMERICO DE UN POLINOMIO 


introducción: 


Este programa sirve para calcular el valor númerico de un polino- 
mio para un determinado valor de Xx. El programa solicita el grado del po 
linomio para dimensionar la variable A(I) que representa al coeficiente 


del término xi. 


listado del programa: 


10 REM 2442400000002 RRA 
20 REM 

30 REM VALOR NUMERICO DE UN 
40 REM 

50 REM POLINOMIO 

60 REM 

70 REM IRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRDRROODOORAOORDODO CERRO OO IIA 
100 PRINT 

110 PRINT "GRADO DEL POLINOMIO N =";5 

120 INPUT N 

130 PRINT:¿DIM A(N):PRINT 

140 FOR I=N TO 1 STEP -1 

150 PRINT "COEFICIENTE DE X**"3153", A("313") ="; 

160 INPUT A(I) 

170 NEXT 1 

180 PRINT "TERMINO INDEPENDIENTE , A(O) ="; 

190 INPUT A(O0) 

200 PRINT 

210 PRINT "VALOR DE X ="”; 

220 INPUT X 

230 PRINT 

240 PRINT 

250 V=0 

260 FOR I1=0 TO N 

270 V=V+A(1I)XX”I 

280 NEXT I 

290 PRINT "EL VALOR NUMERICO DEL POLINOMIO PARA X ="3X3"ES VU ="3U 
300 PRINT 

310 PRINT 

319 REM - PARA REALIZAR MAS CALCULOS - 

320 PRINT "DESEA REALIZAR MAS CALCULOS — (S/N)"; 

330 INPUT Cs 
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350 IF C$="N" THEN GOTO 380 
360 PRINT 

370 GOTO 200 

380 END 


ejercicios resueltos: 


Roniós el valor de númerico del polinomio 3x* - 2x7? +x>0“+6 
para Xx = -3; x =-1.7 y x= -0.6 
SOLUCION: 
GRADO DEL POLINOMIO N =? 4 
COEFICIENTE DE XxX” 4 , A( 4.) =? 3 
COEFICIENTE DE XxX”? 3 , At 3 ) =?-2 
COEFICIENTE DE XxX” 2, A( 2) =? 0 
COEFICIENTE DE XxX” 1 , A( 1 ) =? 1 
TERMINO INDEPENDIENTE , A(0) =? 6 
VALOR DE X =?-3 
EL VALOR NUMERICO DEL POLINOMIO PARA X =-3 ES V = 300 
DESEA REALIZAR MAS CALCULOS — (S/N)7s 
VALOR DE X =?-1.7? 
EL VALOR NUMERICO DEL POLINOMIO PARA X =-1.7 ES VU = 39.1823 
DESEA REALIZAR MAS CALCULOS —(S/N)?s 
VALOR DE X =?-.6 
EL VALOR NUMERICO DEL POLINOMIO PARA X =-.6 ES V = 6.2208 
DESEA REALIZAR MAS CALCULOS  (S/N)?N 
Z Sm 10 8 y 6 5 
e Hallar el valor númerico del polinomio 2x "- 3x + 4x' + 7x. - 2xX 
4 3 2 _ ES 
+ 6x" + 9x” - 7x + 5 para x=02 y x= “3 


SOLUCION: 


GRADO DEL POLINOMIO N =? 10 


COEFICIENTE DE X” 10 , A( 10 ) =? 2 
COEFICIENTE DE XxX” 9 , At 9.) =?2 0 
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COEFICIENTE DE XxX? 8 , A( 8 ) =?-3 
COEFICIENTE DE XxX? 7 , A( 7.) =? 4 
COEFICIENTE DE XxX” 6 , A(á ) =? 7 
COEFICIENTE DE XxX” 5 , A( 5.) =?-2 
COEFICIENTE DE XxX” 4 , A( 4) =? 6 
COEFICIENTE DE XxX” 3 , Af 3.) =? 9 
COEFICIENTE DE X”* 2, A( 2 ) =?-7 
COEFICIENTE DE Xx” 1 , A( 1.) =?2 0 
TERMINO INDEPENDIENTE , A(O) =? 5 


VALOR DE X =? 2 
EL VALOR NUMERICO DEL POLINOMIO PARA X = 2ES V = 2321 


DESEA REALIZAR MAS CALCULOS —(S/N)?S 


VALOR DE X =?-3 
EL VALOR NUMERICO DEL POLINOMIO PARA X =-3 ES VU = 95441 


DESEA REALIZAR MAS CALCULOS —(S/N)?N 


3. Hallar el valor númerico del polinomio: 


x2? y? os y +0 + axe + tx? + 5x0 + 3x> 


3 ES 


-5 +6 
+ 5x2 + 9x + 3 para x= -1.2 , x= 3.4 y 


SOLUCION: 


GRADO DEL POLINOMIO N =? 13 


COEFICIENTE DE X”* 13 , A( 13 ) =?-5 
COEFICIENTE DE X” 12 , A( 12 ) =? 6 
COEFICIENTE DE X”* 11 , A( 11 ) =?-3 
COEFICIENTE DE X” 10 , A( 10 ) =? 1 
COEFICIENTE DE Xx” 9 , A( 9 =2 0 
COEFICIENTE DE Xx” 8 , At 8) =? 4 
COEFICIENTE DE X”* 7 , At 7.) =? 6 
COEFICIENTE DE X” 6 , A( 6 ) =? 5 
COEFICIENTE DE xX” 5, A(5)=?3 
COEFICIENTE DE XxX?” 4 , A( 4.) =?-2 
COEFICIENTE DE XxX” 3, A( 3.) =? 8 
COEFICIENTE DE XxX” 2, A( 2.) =? 5 
COEFICIENTE DE X”* 1 , A( (1) =? 9 
TERMINO INDEPENDIENTE , A(0) =? 3 


VALOR DE X =?-1.2 


EL VALOR NUMERICO DEL POLINOMIO PARA X =-1.2 ES VU = 120.06914 


DESEA REALIZAR MAS CALCULOS  (S/N)>”?S 
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VALOR DE X =? 3.4 


EL VALOR NUMERICO DEL POLINOMIO PARA X = 3.4 ES VU =-28037684 


DESEA REALIZAR MAS CALCULOS —(S/N)?S 


VALOR DE X =?-.5 


EL VALOR NUMERICO DEL POLINOMIO PARA X =-.5 ES V =-1.4173584 


DESEA REALIZAR MAS CALCULOS — (S/N)?N 


SUMA Y DIFERENCIA DE POLINOMIOS 


introducción: 


mio 


Este programa sirve para cálcular la suma y diferencia de polino- 


s P(x) y O(x). Si P(x) es un polinomio de grado N y Q(x) es un polino 


mio de grado M, se hace P =máx(N,M) y este valor nos sirve para dimensio 


nar 


cie 


las variables A(1),B(1),S(1),D(1) que son respectivamente los coefi- 


ntes de P(x),0(x), P(x)+0(x) y P(x)-0(x). 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
149 
150 
160 
170 
180 
190 
199 
200 
210 
220 
230 
2490 
250 
260 
270 
280 
290 
300 


REM ICC IIA 
REM 
REM Suma Y DIFERENCIA 
REM 
REM DE POLINOMIOS 
REM 
REM IRC 
PRINT 

PRINT "GRADO DEL POLINOMIO P(X). N ="; 

INPUT N 

PRINT "GRADO DEL POLINOMIO Q(X), M="; 

INPUT M 

REM - P ES EL MAX(N,M) - 

IF N>M THEN GOTO 180 

P=M 

GOTO 190 

P=N 

DIM A(P),B(P),S(P),D(P) 

REM - SE PONEN TODOS LOS COEFICIENTES A CERO - 

FOR I=0 TO P 

A(1)=0 

B(1)=0 

S(1)=0 

D(1)=0 

NEXT 1 

PRINT 

PRINT "COEFICIENTES DEL POLINOMIO P(X)" 

PRINT 

FOR I=N TO 1 STEP -1 

PRINT "COEFICIENTE DE X”""313", A(";13") ="; 
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310 INPUT A(I) 

320 NEXT 1 

330 PRINT "TERMINO INDEPENDIENTE , A(O) ="; 
340 INPUT A(0) 

350 PRINT 

360 PRINT 

370 PRINT "COEFICIENTES DEL POLINOMIO Q(X)” 
380 PRINT 

390 FOR I=M TO 1 STEP -1 

400 PRINT "COEFICIENTE DE X**";31;3", B("31;") 
410 INPUT B(1) 

420 NEXT 1 

430 PRINT "TERMINO INDEPENDIENTE , B(0) ="; 
440 INPUT B(0) 


450 PRINT 

459 REM - SUMA DE LOS POLINOMIOS - 

460 PRINT "EL POLINOMIO SUMA P(X) + Q(X) ES 1" 
470 PRINT 


480 FOR I1=P TO 1 STEP -1 

490 S(1I)=A(1)+B(1) 

500 PRINT "COEFICIENTE DE X”*"3153",S("313")= "3S(I) 
510 NEXT I 

520 PRINT "TERMINO INDEPENDIENTE, S(0) ="3A(0)4+B(0) 
530 PRINT 

540 PRINT 

549 REM - DIFERENCIA DE LOS POLINOMIOS - 

550 PRINT "EL POLINOMIO DIFERENCIA P(X) - Q(X) ES :*” 
560 PRINT 

570 FOR 1=P TO 1 STEP -1 

580 D(1)=A(1)-B(I) 

590 PRINT "COEFICIENTE DE X""515",D("313")= "3D(1) 
600 NEXT 1 

610 PRINT "TERMINO INDEPENDIENTE, D(O) ="3A(0)-B(0) 
é20 PRINT 

630 END 


ejercicios resueltos: 


Las los polinomios: P(x) = 2x" - x" + 3x" + 7x” - 1 y 


Q(x) = 5x* + 4x> - 2x* +*:6x +8. Calcular: .P(X) + 0(-), y P (x) 


SOLUCION: 


GRADO DEL POLINOMIO P(X), N =? 
GRADO DEL POLINOMIO Q(X), M =?2 


COEFICIENTES DEL POLINOMIO P(X) 


COEFICIENTE DE X” 
COEFICIENTE DE x” 
COEFICIENTE DE X” «Al 
COEFICIENTE DE X” « Al 
COEFICIENTE DE X”* 1 , A( 
TERMINO INDEPENDIENTE , A 


s Al 
y Al 


NU ayu 
- -»-NWaAaog 


COEFICIENTES DEL POLINOMIO Q(X) 


COEFICIENTE DE *X” 4 , B( (4) =?2 5 
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- Q(x) 


108 POLINOMIOS 


COEFICIENTE DE X* 3 , B( (3) =? 4 
COEFICIENTE DE XxX” 2, B( 2 ) =?-2 
COEFICIENTE DE XxX” 1, B( 1.) =? 6 

TERMINO INDEPENDIENTE , B(0) =? 8 

EL POLINOMIO SUMA P(X) + Q(X) ES : 
COEFICIENTE DE XxX” 5 ,S( 5 )= 2 

COEFICIENTE DE XxX” 4 ,S( 49 )= 4 

COEFICIENTE DE XxX” 3 ,S1 3 )= 72 

COEFICIENTE DE XxX” 2 ,S1 2 )= 5 

COEFICIENTE DE XxX” 1 ,S( 1 )= 6 

TERMINO INDEPENDIENTE, S(0) = 2 

EL POLINOMIO DIFERENCIA P(X) - Q(X) ES : 
COEFICIENTE DE XxX” 5 ,D( 5 )= 2 

COEFICIENTE DE Xx” 9 ,D( 4 )= -6 

COEFICIENTE DE XxX” 3 ,D( 3 )= -1 

COEFICIENTE DE XxX” 2 ,D(t 2 )= 9 


COEFICIENTE DE X”* 1 ,D( 1 )= -ó 
TERMINO INDEPENDIENTE, D(0) =-9 


A Dados los polinomios: 


px) = trad 13 2 o 3x4 2+x+9 
Qe) = ax -3x +5x 4842x -4x +8x2-2x+7 
Talcular P(x) + O(x) y P(x) - O(x). 


SOLUCION: 


GRADO DEL POLINOMIO P(X), N =? 12 
GRADO DEL POLINOMIO Q(X), M =? 8 


COEFICIENTES DEL POLINOMIO P(X) 


COEFICIENTE DE X” 12 , A( 12 ) =? 1 
COEFICIENTE DE X” 11 , A( 11 ) =? 6 
COEFICIENTE DE XxX” 10 , A( 10 ) =?-3 
COEFICIENTE DE XxX? 9 , A( 9.) =? 5 
COEFICIENTE DE XxX” 8 , A( 8 ) =2-7 
COEFICIENTE DE Xx”? 7, A( 7.) =? 3 
COEFICIENTE DE XxX” 6 , A( 6 ) =? 2 
COEFICIENTE DE X* 5, A(5.) U=7? 9 
COEFICIENTE DE XxX” 4 , A1 4 ) =?-S 
COEFICIENTE DE X? 3 , A( 3.) =? 3 
COEFICIENTE DE XxX” 2, At 2.) =2? S 
COEFICIENTE DE X”* 1 , A( 1 ) =? 1 
TERMINO INDEPENDIENTE , A(O) =? 9 


COEFICIENTES DEL POLINOMIO Q(X) 


COEFICIENTE DE XxX” 28, B( 8 ) =? 4 
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COEFICIENTE DE X”* 72 , B( 7 ) =?-3 
COEFICIENTE DE X? 6 , B( (6 ) =? 5 
COEFICIENTE DE XxX” 5, B(5) =? 8 
COEFICIENTE DE XxX” 4 , B( (4 ) =? 2 
COEFICIENTE DE X* 3 , B( (3 ) =?-4 
COEFICIENTE DE XxX” 2, B( 2 ) =? 8 
COEFICIENTE DE X”* 1 , B( (1) =?-2 
TERMINO INDEPENDIENTE , B(0) =? 7? 
EL POLINOMIO SUMA P(X) + Q(X) ES : 
COEFICIENTE DE Xx” 12 ,S( 12 )= 1 
COEFICIENTE DE X” 11 ,S( 11 )= 6 
COEFICIENTE DE Xx” 10 ,S( 10 )= -3 
COEFICIENTE DE X”* 9 ,S( 9 )= 5 
COEFICIENTE DE Xx” 8 ,S( 8 )= -3 
COEFICIENTE DE X”* 7 ,S( 7 )= 0 
COEFICIENTE DE X” 6 ,S( 6 )= 72 
COEFICIENTE DE X”* 5 ,S( S )= 17 
COEFICIENTE DE Xx” 4 ,S( 4 )= -3 
COEFICIENTE DE X”* 3 ,S( 3 )= -1 
COEFICIENTE DE XxX” 2 ,S(f 2 )= 13 
COEFICIENTE DE X”* 1 ,S( 1 )= -1 
TERMINO INDEPENDIENTE, S(0) = 16 
EL POLINOMIO DIFERENCIA P(X) - Q(X) ES : 
COEFICIENTE DE X” 12 ,D( 12 )= 1 
COEFICIENTE DE X” 11 ,D( 11 )= 6 
COEFICIENTE DE X” 10 ,D( 10 )= -3 
COEFICIENTE DE X”* 9 ,D( 9 )= 5 
COEFICIENTE DE Xx” 8 ,D( 8 )= -11 
COEFICIENTE DE X”* 7? ,D( 7 )= 6 
COEFICIENTE DE X” 6 ,D( 6 )= -3 
COEFICIENTE DE XxX” 5 ,D( 5 )= 1 
COEFICIENTE DE X” 4 ,D( 4 )= -7 
COEFICIENTE DE X”* 3 ,D( 3 )= 2 
COEFICIENTE DE X” 2 ,D( 2 )= -3 
COEFICIENTE DE X”* 1 ,D( (1 )= 3 


TERMINO INDEPENDIENTE, D(0) = 2 


PRODUCTO DE UN ESCALAR POR UN POLINOMIO 


introducción: 


Este programa sirve para multiplicar un polinomio P(x) por un es- 
calar K. 
Las variables A(I) y P(I) representan los coeficientes de los po- 


linomios P(x) y K.P(x) respectivamente. 


listado del programa: 


10 REM IRRRIRRRORRRRORRORDRORORRRRRRRRRRRRDRRRRRRRRRRRRRRORARROORORDORDOARDORDORDORDODOORIRA 


20 REM 

30 REM PRODUCTO DE UN ESCALAR K 
40 REM 

50 REM POR UN POLINOMIO P(Xx) 

60 REM 


70 REM IRRRIORRIRRRORIRIRORRIRRIORIORIRRRRRRIRORIRRRIRORIOIOIOAIIIOIOOIOOIIOIIOIIIIIIIA 
100 PRINT 

110 PRINT "GRADO DEL POLINOMIO P(X), N =*; 

120 INPUT N 

130 DIM A(N),P(N) 

140 PRINT 

150 FOR I=N TO 1 STEP -1 

1640 PRINT "COEFICIENTE DE X*";313", A(*313") ="; 

170 INPUT A(I) 

180 NEXT I 

190 PRINT "TERMINO INDEPENDIENTE , A(O0) ="; 

200 INPUT A(O0) 

Z10 PRINT 

220 PRINT "VALOR DE K ="; 

230 INPUT K 

240 PRINT 

250 PRINT "EL POLINOMIO PRODUCTO DE";5K;"POR P(X), K.P(X) ES :* 
260 PRINT 

270 FOR I=N TO 1 STEP -1 

280 P(I)=KXA(1) 

290 PRINT "COEFICIENTE DE X*"31I5*%*, P("31I53%) ="3 P(I) 
300 NEXT I : 

310 PRINT "TERMINO INDEPENDIENTE , P(0) ="3KXA(0) 
320 END 
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ejercicios resueltos: 


E, Dado el polinomio : 


P(x) 


-2.34x+4.36x +3.25x+4.57x7+1.21x-0.99 


d 


Hallar el polinomio KP(x). 
SOLUCION: 


GRADO DEL POLINOMIO 


COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 


DE 
DE 
DE 
DE 
DE 


xo 
Xx? 
x* 
xa 
xXx 


TERMINO INDEPENDIENTE 


VALOR DE K 


=? 2.31 


EL POLINOMIO PRODUCTO 


COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 


DE 
DE 
DE 
DE 
DE 


xo 
xo 
xo 
xo 
xo 


P(X), N=? 5 
5206. A(5) =?-2.34 
4. A(4)=? 4.56 
3 q A(3)=? 3.25 
2, A(2.) =? 4.5? 
1 A( 1.) =? 1.21 
« A(0) =?-.99 
DE 2.31 POR P(X), K.P(X) ES 
SS P(5.) =-5.9054 
4, P(49) 10.5336 
3.0. P(3)=7.535075 
2, PCT) mm 10/3567 
1 P( 11) = 2.7951 
“s P(0) =-2.2869 


TERMINO INDEPENDIENTE 


ES el polinomio: 
11 


P(x) 


2x 


+3x 


10 


9 


=5xX rar? 


Hallar el polinomio KP(x). 


SOLUCION 


GRADO DEL POLINOMIO P(X), N=? 11 
COEFICIENTE DE XxX” 11 , A( 11 ) =2 2 
COEFICIENTE DE XxX” 10, A( 10) =?2 3 
COEFICIENTE DE XxX” 9, A(9.) =?-S 
COEFICIENTE DE XxX” 8, A( 8.) =? 6 
COEFICIENTE DE XxX” 7, A( 7.) =?-1 
COEFICIENTE DE XxX" 6, A(6)=?20 
COEFICIENTE DE XxX” 5 , A(5)U=?09 
COEFICIENTE DE Xx” 4, At(4) =?-4 
COEFICIENTE DE XxX” 3, A( 3.) =? 6 
COEFICIENTE DE Xx” 2, A(2.)=?2 
COEFICIENTE DE Xx” 1 Ati) =?-S5 
TERMINO INDEPENDIENTE . A(0) =? 4 
VALOR DE K =? 5 

EL POLINOMIO PRODUCTO DE 5 POR P(X), K.P(X) ES : 
COEFICIENTE DE XxX” 11 , P( 11 ) = 10 
COEFICIENTE DE XxX” 10, P( 10 ) = 15 
COEFICIENTE DE XxX” 9, P(9.) =-25 
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POLINOMIOS 


COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 


DE 
DE 
DE 
DE 
DE 
DE 
DE 
DE 


x* 
NA 
ER 
xe 
x* 
xXx» 
xX* 


XA 


-Ndbsdwn yo 


TERMINO INDEPENDIENTE 


P( 
P( 
P( 
P( 
P( 
P( 
PI 
P( 


mn 


- -NGW4p¿uoaoyOo 


o 


A NL 


PRODUCTO DE UN POLINOMIO POR EL BINOMIO 
(x + a) 


introducción: 


Este breve programa sirve para Calcular el producto de un polino- 
mio P(x) por el binomio (x+a) 

Si el grado del polincmio P(x) es N el polinomio P(x) (x+ta) será 
de grado N+1, de ahi que haya que dimensionar la variable C, que represen 


ta los coeficientes del polinomio producto del siguiente modo C(N+1). 


listado del programa: 


10 REM IRRRRRRORRRRRORORDRODRRROARODARORORDRORDARDORORORDORORORDEROARDORDARDORDOACOROROOORDOOARA 
20 REM 


30 REM PRODUCTO DE UN POLINOMIO P(X) 
40 REM 

50 REM POR EE BINOMIO (X+A) 

60 REM 


20 REM RRRRRRRRRRROROAROARORORAORRORRRORRROOREORDROARORRORRORDAORDEARRDRORIOOIROIO OOOO ARI 
100 PRINT 

110 PRINT "GRADO DEL POLINOMIO P(X), N ="”; 

120 INPUT N 

130 DIM B(N+1),C(N+1) 

140 PRINT 

150 FOR I=N TO 1 STEP -1 

160 PRINT “COEFICIENTE DE X""3153”", B("313") ="; 

170 INPUT B(I) 

180 NEXT 1 

190 PRINT "TERMINO INDEPENDIENTE , B(0) =";5 

200 INPUT B(0) 

210 PRINT 

220 PRINT "ESCRIBA EL VALOR DE A DEL BINOMIO (X + A), A ="; 
230 INPUT A 

240 PRINT 

250 PRINT 

260 PRINT "EL PRODUCTO (X-A)JXP (Xx) ES IGUAL A :” 
270 PRINT 

280 FOR I=N+1 TO 1 STEP -1 

290 C(I)=AXB(1)+ B(I-1) 

300 PRINT "COEFICIENTE DE X*"3153", C("313") ="3C(1) 
310 NEXT 1 

320 PRINT "TERMINO INDEPENDIENTE , C(0) ="3AXB(0) 

330 END 
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ejercicios resueltos: 


listas el producto del polinomio: 


12 11 9 El 2 
Xx Xx 


P(x) = 7 3 + 6xX" - 7xX" + xXx" - x + 2 por el binomio (x+3). 


SOLUCION: 


GRADO DEL POLINOMIO P(X), N=? 12 
COEFICIENTE DE XxX” 12, B( 12 ) =? >? 
COEFICIENTE DE X”* 11 , B( 11 ) =?>-3 
COEFICIENTE DE XxX” 10, B( 10) =? O 
COEFICIENTE DE XxX” 9, B(")=?0 
COEFICIENTE DE XxX” 8, B( 8) =? 0 
COEFICIENTE DE XxX" 72, B( 7.) =?0 
COEFICIENTE DE xXx” 6, B(464)=?0 
COEFICIENTE DE xXx" 5, B(5)=?6 
COEFICIENTE DE XxX" 4, B(4.) =?2-> 
COEFICIENTE DE XxX” 3, B(3)=?0 
COEFICIENTE DE XxX" 2, B( 2) =? 1 
COEFICIENTE DE XxX” 1 , B( 1) =?-1 
TERMINO INDEPENDIENTE , B(0) =? 2 
ESCRIBA EL VALOR DE A DEL BINOMIO (X + A), A= 3 
EL PRODUCTO (X-AI)XP (X) ES IGUAL A: 
COEFICIENTE DE Xx” 13, C( 13) ? 
COEFICIENTE DE XxX” 12, C( 12 ) = 18 
COEFICIENTE DE X” 11 , C( 11 ) =-9 
COEFICIENTE DE XxX” 10, C(10)=0 
COEFICIENTE DE Xx” 9, C(9)=0 
COEFICIENTE DE XxX” 8, C( 8) 0) 
COEFICIENTE DE X* 2, C(7)=0 
COEFICIENTE DE XxX" 6 , C(6)=6 
COEFICIENTE DE X* 5, C(5)= 11 
COEFICIENTE DE Xx” 4, C( 4.) =-21 
COEFICIENTE DE XxX" 3, C(3)=1 
COEFICIENTE DE XxX” 2, C(2)=_2 
COEFICIENTE DE X”* 1 , C( 41.) =-1 
TERMINO INDEPENDIENTE , C(0) = 6 


pa Hallar el producto del polinomio: 


P(x) = 3x0 + O PT +5x% + 7x + 3 ¡por el binomio (x-2). 


SOLUCION: 


GRADO DEL POLINOMIO P(X), N=? 6 


COEFICIENTE DE xXx” 6, B1(6)=?3 
COEFICIENTE DE xXx” 5 , B( 5.) =? 2 
COEFICIENTE DE XxX”? 4, B(45) =?2-1 
COEFICIENTE DE XxX” 3, B( 3) =? 4 
COEFICIENTE DE XxX” 2, B( 2.) =?5 


COEFICIENTE DE X” 


TERMINO INDEPENDIENTE 


1 


B( 


1 


) 


B(0) 
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=? 


? 
=? 3 


ESCRIBA EL VALOR DE A DEL BINOMIO (X + A), 


EL PRODUCTO 


COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 


DE 
DE 
DE 
DE 
DE 
DE 
DE 


xs 
xe 
xo 
x* 
xn 
x* 
x* 


TERMINO INDEPENDIENTE 


(9) 


(X-A)XP (Xx) 
7? Cí 
6. Cl 
58. C( 
4. C( 
S3¿320—.o..Í! 
2. C( 
1. Cl 


-=-Nd4dadny 


o 


¿2 A 


ES IGUAL A: 
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PRODUCTO DE POLINOMIOS 


introducción: 


Este programa permite calcular el producto de dos polinomios 


P(x) y Q(x), cualesquiera que sean sus grados. Los coeficientes del 


polinomio P(x) se acumulan en la variable A(I), y los del polinomio 


Q0(x) en la variable B(J), siendo los coeficientes del polinomio pro 


ducto los de la variable P(K). 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
109 
110 
120 
130 
140 
150 
160 
170 
130 
190 
200 
z10 
219 
220 
230 
240 
250 
260 
270 
280 
290 
300 


REM RRE A 
REM 
REM 
REM PRODUCTO DE POLINOMIOS 
REM 
REM 
REM 2904000000020 0092900090N02908NN0N000)NORORORRORORRRRIO IIA 
PRINT 

REM - ENTRADA DEL POLINOMIO P(X) - 

PRINT "GRADO DEL POLINOMIO P(X), N ="; 

INPUT N 

DIM A(N) 

PRINT 

PRINT "COEFICIENTES DEL POLINOMIO P(X)” 

PRINT 

FOR I=N TO O STEP -1 

PRINT "COEFICIENTE DE X”""31;3", A(*5I53") ="; 

INPUT A(I) 

NEXT I 

PRINT 

REM - ENTRADA DEL POLINOMIO Q(X) - 

PRINT "GRADO DEL POLINOMIO Q(X), M ="; 

INPUT Mm 

DIM BM) 

PRINT 

PRINT "COEFICIENTES DEL POLINOMIO Q(X)" 

PRINT 

FOR J=M TO O STEP -1 

PRINT "COEFICIENTE DE X”"";5J53”, B("3J53") ="5 

IMIPUT B(J) 
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310 NEXT J 

320 PRINT 

330 FOR I=N TO O STEP -1 
340 FOR J=M TO O STEP -1 
350 C(I.,J)=A(I)XB(J) 

360 NEXT J 

370 NEXT I 

330 R=N+M 

390 DIM P(R) 

400 FOR K=0 TO R 

310 P(K)=0 

420 NEXT K 

430 FOR K=1 TO R 

440 I=0 

450 P(K)=P(K)+C(1,K-1) 
460 IF I=K THEN GOTO 490 
470 I=I+1 

480 GOTO 450 

490 NEXT K 

500 PRINT 


509 REM - SALIDA DEL POLINOMIO PRODUCTO 
510 PRINT "EL POLINOMIO PRODUCTO P(X).Q(X) 


520 PRINT 

530 FOR K=R TO 1 STEP -1 

540 PRINT "COEFICIENTE DE X"“"3k3", 
550 NEXT K 

560 PRINT "TERMINO INDEPENDIENTE ,P( 
570 END 


ejercicios resueltos: 


por 


5%) ="3P(K) 


="3C(0,0) 


L; Dados los polinomios: P (x) = 2x* - de 5R* + EE a 3 


y Qf(x) = 3x* -x> - 7x2 


P (x).0(x). 
SOLUCION: 


+ 12. x + 4, 


GRADO DEL POLINOMIO P(X), 


COEFICIENTES DEL POLINOMIO P(X) 


COEFICIENTE DE XxX” éá , At6) =? 2 
COEFICIENTE DE X* 5 , A(5).=?-3 
COEFICIENTE DE Xx” 4 , A(49.)=? 5 
COEFICIENTE DE Xx” 3 , At3) =? 72 
COEFICIENTE DE XxX” 2, A(2) =? 9 
COEFICIENTE DE Xx” 1 , A(t1)=?0 
COEFICIENTE DE XxX” O , AO) =?-3 
GRADO DEL POLINOMIO Q(X), M=? 4 
COEFICIENTES DEL POLINOMIO Q(X) 
COEFICIENTE DE X” 4 , B(94) =?3 
COEFICIENTE DE Xx” 3 , Bt 3) =?-1 
COEFICIENTE DE Xx” 2 , B( 2) =?2-72 
COEFICIENTE DE Xx” 1, B( 11.) =? 12 
COEFICIENTE DE Xx” O , B(0) =? 4 


Calcular el polinomio producto 
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TIENE LOS SIGUIENTES COEFICIENTES"” 
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EL POLINOMIO PRODUCTO P(X).Q(X) TIENE LOS SIGUIENTES COEFICIENTES 


COEFICIENTE DE X” 10 , P((10 ) = 6 
COEFICIENTE DE XxX” 9 , P(9) =-11 
COEFICIENTE DE X” 8 , P(8)=q 
COEFICIENTE DE XxX” 7? , P(7)=óéól 
COEFICIENTE DE X” 6 , P(6 ) =-43 
COEFICIENTE DE XxX” S , Pt SY Y) =-10 
COEFICIENTE DE XxX” 4 , P(49.) = 32 
COEFICIENTE DE XxX”? 3 , PC 3.) 139 
COEFICIENTE DE X”* 2 , Pt1.2). 32 
COEFICIENTE DE X” 1 , P( 1 ) =-36 
TERMINO INDEPENDIENTE ,P( O ) =-12 

2 E 4 3 2 

e Dados los polinomios: P(x) = 5x”" - 6x.” + 3x" -— 2x + 7 

Q(x) = E? - 1. Calcular el polinomio producto P(x).Q(x). 
SOLUCION : 
GRADO DEL POLINOMIO P(X), N =?2 4 


COEFICIENTES DEL POLINOMIO P(X) 


COEFICIENTE DE Xx” 49 , A(q)=?5 
COEFICIENTE DE Xx” 3, A(3) =?-6 
COEFICIENTE DE Xx” 2 , A(2)=? 3 
COEFICIENTE DE X”* 1 , A(1.) =2-2 
COEFICIENTE DE Xx” O , A(O0)=?972 


GRADO DEL POLINOMIO Q(X), M=? 3 


COEFICIENTES DEL POLINOMIO Q(X) 


COEFICIENTE DE XxX” 3 , B(3)=? 1 
COEFICIENTE DE Xx” 2 , B(2) =?0 
COEFICIENTE DE XxX” 1 , B(1)=?0 
COEFICIENTE DE XxX” O, B( 0) =?-1 


EL POLINOMIO PRODUCTO P(X).0(X) TIENE LOS SIGUIENTES COEFICIENTES 


COEFICIENTE DE XxX”? 7, P( 75) 5 
COEFICIENTE DE X” 6, P( 6) =-6 
COEFICIENTE DE XxX” 5, P(5)=->_3 
COEFICIENTE DE XxX” 4 , P(45) =-2 
COEFICIENTE DE XxX” 3, P( 3) = 13 
COEFICIENTE DE XxX” 2, P( 2.) =-3 
COEFICIENTE DE XxX” 1, P(1.)= 2 
TERMINO INDEPENDIENTE ,P( 0 ) =-2 


REGLA DE RUFFINI 


introducción: 


Este programa sirve para realizar el cociente de un polinomio P(x) 


por el binomio (x-a), obteniendose 


lor del resto, que coincide con el 


rema del resto). 
A partir de la linea 399 se 
con arreglo al esquema de la regla 


ros los resultados. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
z10 
220 
230 
240 
250 


REM 
REM 
REM 
REM POR EL 
REM 
REM 
REM 


(REGLA 


PRINT 

PRINT "GRADO DEL POLINOMIO P(X), 
INPUT N 

DIM B(N),C(N) 

PRINT 

FOR I=N TO 1 STEP -1 

PRINT "COEFICIENTE DE X”**313", 
INPUT B(I) 

NEXT 1 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT A 
PRINT 
PRINT 


"TERMINO INDEPENDIENTE , 
B(0) 


COCIENTE DE 


B("531;"”) 


"ESCRIBA EL VALOR DE A DEL BINOMIO 


el polinomio cociente, asi como el va- 
valor númerico de P(x) para x = a (Teo 
realiza la impresión de los resultados 


de Ruffini, con el fin de hacer más cla 


REM RR 0090000300000 


UN POLINOMIO P(Xx) 


BINOMIO (X-A) 


DE RU FE T:N T) 


REM RRA 


N ="; 


B(0) ="; 


(Xx - 
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260 
270 
280 
290 
300 
310 
320 
325 
330 
340 
350 
370 
380 
390 
399 
400 


POLINOMIOS 
PRINT "EL COCIENTE P(1X)/(X-A) 
PRINT 
C(N-1)=B(N) 
PRINT "COEFICIENTE DE X”""3N-13", C("; 
FOR I=N-1 TO 1 STEP -1 
C(I-1)=C(I)XA+B(1I) 
PRINT "COEFICIENTE DE X”*";3I-1;3", C("; 
NEXT 1 
R=C(O)XA+B(0) 


PRINT "EL RESTO DE LA DIVISION ES R = 
IF R<>0 THEN GOTO 390 

PRINT 

PRINT "LA DIVISION ES EXACTA, X ="5A;" 
PRINT 

REM - IMPRESION DE LA REGLA DE RUFFINI 
PRINT * "3 


ES IGUAL A :* 
N-13") ="3C(N-1) 
I-13”) ="3C(I-1) 


"sR 


ES UNA RAIZ DEL POLINOMIO P(X)" 


410 FOR I=N TO O STEP -1 
420 PRINT B(1);"” ”3 
430 NEXT I 
440 PRINT 
450 PRINT Aj” ll 
460 FOR I=N TO O STEP -1 
470 PRINT C(1I)XA3” ”5 
4830 NEXT I 
490 PRINT 
500 PRINT "IRIS" 
510 PRINT ” 28 
520 FOR I=N-1 TO O STEP -1 
530 PRINT C(1)3” ”3 
540 NEXT I 
550 PRINT R3" = R” 
560 END 

o e o : 
ejercicios resueltos: 

L. Hallar el cociente de (x9-2) :(x+1). 


SOLUCION: 


GRADO DEL POLINOMIO P(X), N =? 8 
COEFICIENTE DE XxX” 8, B( 8.) =? 1 
COEFICIENTE DE Xx” 7, B(7)=?0 
COEFICIENTE DE Xx” 6, B1 6) =? 0 
COEFICIENTE DE XxX” 5, B(5)=?0 
COEFICIENTE DE Xx” 4, B(4.) ==? 0 
COEFICIENTE DE xXx” 3, B( 3) =? 0 
COEFICIENTE DE xX” 2, B( 2) =? 0 
COEFICIENTE DE XxX” 1, B(1.J)=?0 
TERMINO INDEPENDIENTE , B(0) =?-2 
ESCRIBA EL VALOR DE A DEL BINOMIO (X - A), 
EL COCIENTE P(X)/(X-A) ES IGUAL A 
COEFICIENTE DE XxX” 7, C( 7.) =u1 
COEFICIENTE DE X” 6 , C( 6) = 1 
COEFICIENTE DE xXx" 5, C(353)=u1 


A =? 1 
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COEFICIENTE DE XxX” 94 , C(49.) = 1 

COEFICIENTE DE XxX” 3, C( 3) = 1 

COEFICIENTE DE XxX” 2, C( 2.) = 1 

COEFICIENTE DE XxX” 1, C( 41.) = 1 

COEFICIENTE DE Xx” 0, C(0)=1 

EL RESTO DE LA DIVISION ES R =-1 
1 o o le] o O o lo] -2 

1 Lo) 1 1 1 1 1 1 1 1 a 

FARIARAIIOIRIIIIIDRRRRIRRRRIRRRRIRIRIOIDODORIRRRRRRRRDORRRRRRROES: 

1 1 1 1 1 1 1 1 =1 =R 


Le hallar el cociente siguiente: Po UP IN :¿ x-1 
SOLUCION: 


GRADO DEL POLINOMIO P(X), N =? 9 


COEFICIENTE DE Xx” 9. B(9.) =? 1 

COEFICIENTE DE X" 8, B(8) =? 0 

COEFICIENTE DE XxX” 7 , B( 7.) =?-2 

COEFICIENTE DE X”" 6, B1(6)=?0 

COEFICIENTE DE XxX" 5. B(5)=?1 

COEFICIENTE DE Xx" 4. B( 4.) =?-3 

COEFICIENTE DE XxX" 3, B( 3) =? 1 

COEFICIENTE DE X” 2, B1 2) =? 0 

COEFICIENTE DE X” 1 , B( 41.) =?-1 

TERMINO INDEPENDIENTE , B(0) =? O 

ESCRIBA EL VALOR DE A DEL BINOMIO (X - A), A x=? 1 

EL COCIENTE P(X)/(X-A) ES IGUAL A : 

COEFICIENTE DE XxX” 8, C( 8) = 1 

COEFICIENTE DE Xx” 7, C(7.)=1 

COEFICIENTE DE XxX" 6 , C( 6) =-1 

COEFICIENTE DE XxX" 5, C( 5) =-1 

COEFICIENTE DE XxX" 4, C(4)=0 

COEFICIENTE DE XxX" 3, C( 3.) =-3 

COEFICIENTE DE XxX” 2, C( 2) =- 

COEFICIENTE DE XxX” 1 , C( 1) =- 

COEFICIENTE DE XxX” 0, C( 0) =-3 

EL RESTO DE LA DIVISION ES R =-3 
1 o -2 lo) 1 -3 1 o -1 o 

1 O 1 1 -1 -1 o -3 -2 -2 -3 

ACARIOIRIAIIRIRIRIRRIRRIRIIIIIIIIIIIIIAIOIIIIIIIIIAARA 

1 1 -1 -1 o -3 -2 -2 -3 -3 =R 


3. Dividir el polinomio x>-8 por x-2 
SOLUCION: 


GRADO DEL POLINOMIO P(X), N =? 3 


COEFICIENTE DE XxX” 3, B( 3) =? 1 
COEFICIENTE DE XxX” 2, B( 2.) =?0 
COEFICIENTE DE X” 1, B(1.)=?0 
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TERMINO INDEPENDIENTE , B(0) =?-8 


ESCRIBA EL VALOR DE A DEL BINOMIO (X - A), A =? 2 


EL COCIENTE P(X)/(X-A) ES IGUAL A : 


COEFICIENTE DE XxX” 2, C( 2 
COEFICIENTE DE XxX” 1 , C( 1 
COEFICIENTE DE xXx” 0, C( O 
EL RESTO DE LA DIVISION ES 


$” 
ObN 


LA DIVISION ES EXACTA, X = 2 ES UNA RAIZ DEL POLINOMIO P(X) 


1 0] o -8 
2 le) 2 4 8 
FIAR 
1 2 4 0 =R 


4. Dividir el polinomio: 2 +20 4 5016 por x+1 
SOLUCION: 


GRADO DEL POLINOMIO P(X), N=? 5 


COEFICIENTE DE XxX” S , B(S5S.)=? 1 
COEFICIENTE DE XxX” 4, B(4)=? 2 
COEFICIENTE DE X”* 3, B( 3.) =?2 3 
COEFICIENTE DE XxX” 2, B( 2.) =? 4 
COEFICIENTE DE XxX 1, B( 1.) =? 5 
TERMINO INDEPENDIENTE , B(0) =? 6 


ESCRIBA EL VALOR DE A DEL BINOMIO (X - A), A =?-1 


EL COCIENTE P(X)/(X-A) ES IGUAL A : 
COEFICIENTE DE Xx? 4 , C(45)U= 1 
COEFICIENTE DE XxX” 3, C( 3.) = 1 
COEFICIENTE DE XxX” 2, C( 2.) = 2 
COEFICIENTE DE XxX” 1, C( 1) = 2 
COEFICIENTE DE XxX” 0, C(0.)=->3 
EL RESTO DE LA DIVISION ES R= 3 


1 2 3 4 E] 6 
-1 O sl -1 -2 -2 -3 
III: 

1 1 2 2 3 3 =R 


COCIENTE DE POLINOMIOS 


introducción: 


El presente programa sirve para calcular el cociente entre dos poli 


nomios P(x) y O(x). 


La ejecución del programa permite obtener los coeficientes del poli 


nomio cociente C(x) pero no el resto R(x), en caso de que se quiera obte- 


ner, sería: R(x) = P(x) - Q(x).C(x) Estas operaciones ya han sido estu 


diadas en programas anteriores. 


listado del programa: 


10 
20 
30 
40 


REM RIIIE 
REM 
REM 
REM COCIENTE DE POL INOMIOS 
REM 
REM 
REM IRRIAIAIIOIIIOIAIRIIIIIIIIIIAIAIRIIIIIIIIIRIRIRR000996 
PRINT 

PRINT "GRADO DEL POLINOMIO DIVIDENDO P(X), N ="5 

INPUT N 

DIM A(N) 

PRINT 

PRINT "COEFICIENTES DEL POLINOMIO DIVIDENDO P(X)*” 

PRINT 

FOR I=N TO O STEP -1 

PRINT “COEFICIENTE DE X”"";5135", A(r3l53") ="3 

INPUT A(I) 

NEXT 1 

PRINT 

PRINT "GRADO DEL POLINOMIO DIVISOR Q(X), M ="5 

INPUT M 

DIM B(M) 

PRINT 


260 PRINT "COEFICIENTES DEL POLINOMIO DIVISOR Q(X)"” 
270 PRINT 


FOR I=M TO O STEP -1 


290 PRINT "COEFICIENTE DE X”""315”. B("313") ="3 
300 INPUT B(I) 
310 NEXT 1 


124 POLINOMIOS 


320 PRINT 

330 DIM C(N-M) 

340 FOR I= N TO M STEP -1 

350 C(I-M)=A(1)/B(M) 

360 IF I=M THEN GOTO 400 

370 FOR J=0 TO M 

380 A(I-J)=A(I-J)-C(I-M)XB(M-J) 

390 NEXT J 

400 NEXT I 

410 PRINT 

420 PRINT Ñ 

430 PRINT "EL POLINOMIO COCIENTE P(X)/Q(X) TIENE LOS COEFICIENTES SIGUIENTES: " 
440 PRINT 

450 FOR I=N-M TO O STEP -1 

460 PRINT "COEFICIENTE DE X”"*";313", C("313”") ="5C(1) 
470 NEXT I 

480 END 


ejercicios resueltos: 


1. Sean P(x) = xx +x Y Q(x) = x2+1. 


Hallar P(x) : 0O(x) 
SOLUCION: 


GRADO DEL POLINOMIO DIVIDENDO P(X), N=? 5 


COEFICIENTES DEL POLINOMIO DIVIDENDO P(X) 


COEFICIENTE DE XxX” 5 , A(5.>).=?1 
COEFICIENTE DE XxX” 49 , at4)=?0 
COEFICIENTE DE XxX” 3 , A(3) =?-1 
COEFICIENTE DE XxX” 2 , At2)=?0 
COEFICIENTE DE Xx” 1 , A(11)=? 1 
COEFICIENTE DE XxX” O , A(0)-=?0 


GRADO DEL POLINOMIO DIVISOR Q(X), M =7? 2 


COEFICIENTES DEL POLINOMIO DIVISOR Q1(X) 


COEFICIENTE DE Xx” 2 , B(2) =? 1 
COEFICIENTE DE X” 1 , B(1)=?20 
COEFICIENTE DE XxX” O , B(0)=?1 


EL POLINOMIO COCIENTE P(X)/Q(X) TIENE.LOS COEFICIENTES SIGUIENTES: 


COEFICIENTE DE X”" 3, C(3)=1 
COEFICIENTE DE XxX” 2, C(2.)=0 
COEFICIENTE DE X” 1, C( 15) =-2 
COEFICIENTE DE XxX” 0, C(0)=0 


2. Sea P(x) 
Q (x) 


Hallar P(x) 
SOLUCION 


5 


: Q(x). 
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0.24x7+0.44x*-0.12x"-0.58x-0.48x+0.18 y 


0.2x7+0.3x-0.1 


GRADO DEL POLINOMIO DIVIDENDO P(X), N=? 5 


COEFICIENTES DEL POLINOMIO 


COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 


DE 
DE 
DE 
DE 
DE 
DE 


x* 
x* 
xe 
xo 
xo 
x* 


O - NUAasy 


GRADO DEL POLINOMIO 


: Al 
. Al 
. Al 
. Al 
. Al 
. Al 


DIVIDENDO P(X) 


O - Nasa 


=P? .24 
=? ,44 
=?-.12 
=?-.58 
=?-.48 
=? .18 


DIVISOR Q(X), M=? 2 


COEFICIENTES DEL POLINOMIO DIVISOR Q(X) 


COEFICIENTE DE X” 
COEFICIENTE DE X” 
COEFICIENTE DE X” 


2 
1 
o 


- B( 
. Bl 


2 
1 


) 
) 


. B(0) 


=?2 .2 
=? .3 
=?>-.1 


EL POLINOMIO COCIENTE P(X)/Q(X) TIENE LOS COEFICIENTES SIGUIENTES: 


COEFICIENTE DE X” 
COEFICIENTE DE X” 
COEFICIENTE DE X” 
COEFICIENTE DE 


x* 


3. Sean P(x) 
Calcular P(x) : O(x). 
SOLUCION 


CS] 


. El 
. Cl 
. El 
. El 


6x x7+512+3x-14 


O r NU 


= 1.2 
= .4 
=-.6 
=-1.8 


Y —Q(x) = 2x*-3x+7. 


GRADO DEL POLINOMIO DIVIDENDO P(X), N =? 4 


COEFICIENTES DEL POLINOMIO DIVIDENDO P(X) 


COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 
COEFICIENTE 


DE 
DE 
DE 
DE 
DE 


xo 
xo 
xo 
x* 
x* 


Or Nada 


GRADO DEL POLINOMIO 


. Al 
. Al 
. Al 
, Al 
. Al 


OrNnda 


=> 6 
=>-1 
=? 5 
=? 3 


=?-14 


DIVISOR Q(X), M=? 2 


COEFICIENTES DEL POLINOMIO DIVISOR Q(X) 


COEFICIENTE DE X” 
COEFICIENTE DE Xx” 


COEFICIENTE DE Xx” 


2 
1 
je) 


. Bl 
. B( 
. B( 


2 
1 


o) 


) 
) 


=2 2 
=?-3 
=? 7 


EL POLINOMIO COCIENTE P(X)/Q(X) TIENE LOS COEFICIENTES SIGUIENTES: 


COEFICIENTE DE X” 
COEFICIENTE DE X” 
COEFICIENTE DE X” 


2 
1 
0 


4 00:20) 
.. £0 4.) 
« C(0) 
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COORDENADAS DE UN VECTOR RESPECTO DE UNA 
BASE 


introducción: 


Este programa permite obtener Jas coordenadas de un vector respec 
to de una base dada, para ello se introducen las coordenadas de los vecto 
res de la base B y a continuación las coordenadas respecto de la base cand 
nica del vector W , finalmente el programa proporciona las nuevas coordena 


das. 


listado del programa: 


10 REM RRRRRRRRRRRRRRRRRRRORRRR9009009090N90RORRRRRRIRRORIRROIRRIOIOIOIOIO III IIA 
20 REM 


30 REM CALCULO DE LAS COORDENADAS DE 
40 REM 

50 REM UN VECTOR RESPECTO DE UNA BASE 
60 REM 


70 REM IRRRRRRORRRRORRRROARRORORARRARARRRRORRORORRARARDAOARROARASRERIORDOIOOOIIOIOIIOIIIIOIOIIIOIAAA 
100 PRINT 

110 PRINT "DIMENSION DEL ESPACIO VECTORIAL V, N ="5 

120 INPUT N 

130 DIM A(N,.N),B(N,N),C(N,N),Z(N),W(N) 

140 PRINT 

150 PRINT "INTRODUZCA LAS COORDENADAS DE LOS VECTORES DE LA BASE B" 

160 PRINT 


170 PRINT 
180 FOR F=1 TO N 
190 PRINT "VECTOR "3F53" DE LA BASE B" 


200 FOR C=1 TO N 

210 PRINT "COORDENADA"3C;5"DEL VECTOR";F; 
220 INPUT A(F,C) 

230 NEXT C 

240 PRINT 

250 NEXT F 

260 PRINT 

270 PRINT "INTRODUZCA LAS COORDENADAS DEL VECTOR W" 
280 PRINT 

290 FOR F=1 TO N 

300 PRINT "COORDENADA"3F3"DEL VECTOR W"j; 
310 INPUT Z(F) 

320 NEXT F 
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330 PRINT 

340 FOR F=i1 TO N 

350 B(F,F)=1 

360 NEXT F 

369 REM - COMPROBACION DE SI LOS VECTORES DADOS FORMAN BASE - 
370 FOR C=1 TO N 

380 FOR F=C TO N 

390 IF A(F,C) <>0 THEN GOTO 430 

400 NEXT F 

410 PRINT "LOS VECTORES DADOS SON LINEALMENTE DEPENDIENTES. NO FORMAN BASE” 
420 GOTO 800 

429 REM - CALCULO DE LA MATRIZ INVERSA DE A(N,N) - 
430 FOR K=1 TO N 

490 X=A(C,K) 

450 A(C,K)=A(F,K) 

4960 A(F,K)=X 

470 XB=B(C,K) 

480 B(F,K)=XB 

490 NEXT K 

500 Y=1/A(C,C) 

510 FOR K=1 TO N 

520 A(C,K)=A(C,K)XY 

530 B(C,K)=B(C,K)*XY 

590 NEXT K 

550 FOR P=1 TO N 

560 IF P=C GOTO é20 

570 Y=-A(P,C) 

580 FOR K=1 TO N 

590 A(P,K)=A(P,K)+A(C,K)XY 

600 B(P,K)=B(P,K)+B(C,K)XY 

610 NEXT K 

620 NEXT P 

630 NEXT C 

640 FOR F=1 TO N 

650 FOR C=1 TO N 

660 C(F,C)=INT(B(F,C)X10000+.5)/10000 
670 NEXT C 

680 NEXT F 

690 PRINT 

699 REM - PRODUCTO DE Z(N)XC(N,N) - 
700 FOR F=1 TO N 

710 FOR C=1 TO M 

720 W(F)=W(F)+C(C,F)XZI(C) 

730 NEXT C 

740 NEXT F 

749 REM - SALIDA DEL RESULTADO - 
750 PRINT "LAS COORDENADAS DEL VECTOR W, RESPECTO DE LA BASE B, SON :” 
760 PRINT 

770 FOR F=1 TO N 

780 PRINT "W"3F3" ="3W(F) 

790 NEXT F 

800 END 


ejercicios resueltos: 


¡A las coordenadas del vector w = (-2,6,0) respecto de la base 


> > > > 

B = (uy ,U,, uz) siendo : Us (1,:2.,3) 
> 

u, = (4,5,6) 
Re 

uz = (7,8,9) 


SOLUCION: 
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DIMENSION DEL ESPACIO VECTORIAL V, 


N 


ESPACIOS VECTORIALES 


=?9 3 


INTRODUZCA LAS COORDENADAS DE LOS VECTORES DE LA BASE B 


VECTOR 
COORDENADA 
COORTENADA 
COORDENADA 


VECTOR 
COORDENADA 
COORDENADA 
COORDENADA 


VECTOR 
COORDENADA 
COORDENADA 
COORDENADA 


INTRODUZCA 


COORDENADA 


COORDENADA 
COORDENADA 


LOS VECTORES DADOS SON LINEALMENTE DEPENDIENTES, 


2. Hallar las coordenadas del vector 4 = (-1,7,8,2,0) 


1 
2 
3 


1 
2 
3 


1 
2 
3 


1 
DEL 


DE 
VECTOR 
VECTOR 
VECTOR 


DE 
VECTOR 
VECTOR 
VECTOR 


DE 
VECTOR 
VECTOR 
VECTOR 


UU uu 


YY yr 
UN =D 


Y Y Yyr 


OO uAD 


Y Y yr” 
YO0yNDp 


BASE 


BASE 


BASE 


LAS COORDENADAS DEL VECTOR W 


1 DEL VECTOR W?-2 
2 DEL VECTOR 
3 DEL VECTOR W? O 


> >> > 


base B = (44 ,U)¿/UzrUgr 


SOLUCION 
DIMENSION DEL ESPACIO VECTORIAL V, 


w? 6 


=- > 
Us) siendo: u; = (2,3,4,-5,6) 
> 
u, = (1,0,8,-9,2) 
EN 
u NN (5,7,-3,8,2) 
3 
N =2?2 5 


INTRODUZCA LAS COORDENADAS DE LOS VECTORES DE LA BASE B 


VECTOR 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 


VECTOR 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 


VECTOR 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 


0UN- wo5bQN- 


UBbON> 


1 
DEL 
DEL 
DEL 


DE 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 


DE 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 


DE 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 


NNNNN pa pr pr pe pu 


A] 


EEES 
DUAUND 


UNA ST 
NYUO0O0 rn > 


At e LS 
N 0 UN uD> 


BASE 


BASE 


BASE 


B 


NO FORMAN BASE 


> 
u 
> 
úu 


4 


5 


respecto de la 


(0, -1,2,7.,8) 


(22,4,8,9,2) 


VECTOR 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 


VECTOR 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 


INTRODUZCA 


COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 
COORDENADA 


aa UN 


045qnN- 


4 
DEL 
DEL 
DEL 
DEL 
DEL 


DE 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 


DE 
VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 


baroaS 


aaa au 
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BASE 


BASE 


LAS COORDENADAS DEL VECTOR W 


o0AaqN- 


DEL 
DEL 
DEL 
DEL 
DEL 


VECTOR 
VECTOR 
VECTOR 
VECTOR 
VECTOR 


LAS COORDENADAS DEL VECTOR 


3 oiallar las coordenadas del vector W 


$ B= > > > . 
ase = (uy ,Uz uz) siendo 


Wi =-3.0519 
wWw2 = 3.9343 
W3 = 2,7425 
wa = .7626 
WS =-.5696 


SOLUCION 


DIMENSION DEL ESPACIO VECTORIAL V, 


W. 


RESPECTO DE LA BASE Bi, 


Ey 


0 
e — 
u) = (0,1,3) 
> 
uz = (4,0,0) 
N 3 


SON 


(=2,7,8) 


INTRODUZCA LAS COORDENADAS DE LOS VECTORES DE LA BASE B 


VECTOR 
COORDENADA 


1 


COORDENADA 2 
COORDENADA 3 


VECTOR 
COORDENADA 


1 


COORDENADA 2 
COORDENADA 3 


VECTOR 
COORDENADA 


1 


COORDENADA 2 
COORDENADA 3 


1 
DEL 


DE 
VECTOR 
VECTOR 
VECTOR 


DE 
VECTOR 
VECTOR 
VECTOR 


DE 
VECTOR 
VECTOR 
VECTOR 


NNN 


YU uu 


SI A 
NO r DD 


Ur OD 


YY Yr 
O0ApD>D 


BASE 


BASE 


BASE 


129 


respecto de la 


130 ESPACIOS VECTORIALES 


INTRODUZCA LAS COORDENADAS DEL VECTOR W 
COORDENADA 1 DEL VECTOR W?-2 
COORDENADA 2 DEL VECTOR W? 7 
COORDENADA 3 DEL VECTOR W? 8 


LAS COORDENADAS DEL VECTOR W, RESPECTO DE LA BASE B, SON : 


CAMBIO DE BASE 


introducción: 


Este programa permite realizar el cambio de base en un espacio vec 
torial. Para ello es preciso conocer las coordenadas de los vectores de 
la base nueva en función de los vectores de la base antigua, a continua- 
ción se introducen las coordenadas antiguas del vector W y el programa pro 
porciona las coordenadas nuevas de dicho vector. 

En caso de que por error, el usuario introduzca las coordenadas de 
la base nueva mal, el programa informa que los vectores dados son lineal- 


mente dependientes y por tanto no forman base. 


listado del programa: 


10 REM IRRRRRRRRRRRRRRORRRRRARRRRRRRRRRRRRRR22992990029009RNDRRRRRRRIRRRRIRIRIRRROIRIROA 


20 REM 

30 REM CAMBIO DE BASE 

40 REM 

50 REM EN UN ESPACIO VECTORIAL 

60 REM 

70 REM IRRRRRRRRRRRRRRRRRRRRRRRRRRR29090908020N2080000RRRDDRDRRDRRDIRRIORDRORRROAAA 
100 PRINT 

110 PRINT "DIMENSION DEL ESPACIO VECTORIAL V, N ="; 


120 INPUT N 

130 DIM A(N,N),B(N,N),C(N,N),Z(N),W(N) 

140 PRINT 

150 PRINT "INTRODUZCA LAS COORDENADAS DE LOS VECTORES DE LA BASE NUEVA RESPECTO" 
160 PRINT "DE LA BASE ANTIGUA” 

170 PRINT 

180 FOR F=1 TO N 

190 PRINT-"VEC TOR *3F 

200 FOR C=1 TO N 

210 PRINT "COORDENADA"”5C5"DEL VECTOR"3F5 

220 INPUT A(F,C) 

230 NEXT C 

240 PRINT 

250 NEXT F 

260 PRINT 

270 PRINT "INTRODUZCA LAS COORDENADAS ANTIGUAS DEL VECTOR W” 
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280 PRINT 
290 FOR F=1 TO N 

300 PRINT "COORDENADA";F;"DEL VECTOR W"; 
310 INPUT Z(F) 

320 NEXT F 

330 PRINT 

340 FOR F=1 TO MN 

350 B(F.F)=1 

360 NEXT F 

369 REM - COMPROBACION DE SI LOS VECTORES DADOS FORMAN BASE - 
370 FOR C=1 TO MN 

380 FOR F=C TO MN 

390 IF A(F,C) <>0 THEN GOTO 430 

400 NEXT F 

410 PRINT "LOS VECTORES DADOS SON LINEALMENTE DEPENDIENTES, NO FORMAN BASE” 
420 GOTO 800 

429 REM - CALCULO DE LA MATRIZ INVERSA DE A(N,N) - 
430 FOR K=1 TO N 

440 X=A(C,K) 

450 A(C,K)=A(F,K) 

460 A(F,K)=X 

470 XB=B(C,K) 

480 B(F.K)=XB 

490 NEXT K 

500 Y=1/A(C,C) 

510 FOR K=1 TON 

520 A(C,K)=A(C,K)XY 

530 B(C,K)=B(C,K)XY 

540 NEXT K " 

550 FOR P=1 TO N 

560 IF P=C GOTO 620 

570 Y=-A(P,C) 

580 FOR K=1 TO N 

590 A(P,K)=A(P,K)+A(C,K)X%Y 

600 B(P,K)=B(P,K)+B(C,K)XY 

610 NEXT K 

620 NEXT P 

630 NEXT C 

640 FOR F=1 TO N 

650 FOR C=1 TO N 

660 C(F,C)=INT(B(F.C)*10000+.5)/10000 
6470 NEXT C 

680 NEXT F 

690 PRINT 

699 REM - PRODUCTO DE Z(N)XC(N,N) - 

700 FOR F=1 TO N 

710 FOR C=1 TO N 

720 WF)=W(F)+C(C,FIXZI(C) 

730 NEXT C 

740 NEXT F 

749 REM - SALIDA DEL RESULTADO - 

750 PRINT "LAS COORDENADAS NUEVAS DEL VECTOR W, SON :" 
760 PRINT 

770 FOR F=1 TO N 

780 PRINT "W"3F3" ="5WwW(F) 

790 NEXT F 

800 END 


ejercicios resueltos: 
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_ SS >> > SS >> > 
1. Sean B = (4, ,U)/Uz Uy) y B' = (7 Var V3rVg) dos bases de un mismo 
espacio vectorial tales que: 
> Ud > > 
de al uy - 2u, + 6uz + 8uy 
o a $ a > > 
v, - us + 5u, + 6uz - 3u, 
- e 9% A 7 Pd > 
vz uy Y - 5Uy 
A - > > 
Va = 7u7 + 8u, + 293 


Hallar las coordenadas respecto de la base B' de un vector W que 
tiene las coordenadas (-2,3,4,-5) respecto de la base B. 
SOLUCION: 


DIMENSION DEL ESPACIO VECTORIAL V, N =?2 4 


INTRODUZCA LAS COORDENADAS DE LOS VECTORES DE LA BASE NUEVA RESPECTO 
DE LA BASE ANTIGUA 


VECTOR 1 

COORDENADA 1 DEL VECTOR 1 ? 1 
COORDENADA 2 DEL VECTOR 1 ?-2 
COORDENADA 3 DEL VECTOR 1 ? 6 
COORDENADA 4 DEL VECTOR 1 ? 8 
VECTOR 2 

COORDENADA 1 DEL VECTOR 2 ? 3 
COORDENADA 2 DEL VECTOR 2 ? 5 
COORDENADA 3 DEL VECTOR 2 ? 6 
COORDENADA 4 DEL VECTOR 2 ?-3 
VECTOR 3 

COORDENADA 1 DEL VECTOR 3 ? 9 
COORDENADA 2 DEL VECTOR 3 ? O 
COORDENADA 3 DEL VECTOR 3 ? 6 
COORDENADA 4 DEL VECTOR 3 ?-5 
VECTOR 4 

COORDENADA 1 DEL VECTOR 4 ? 7 
COORDENADA 2 DEL VECTOR 4 ? 8 
COORDENADA 3 DEL VECTOR 4 ? 2 
COORDENADA 4 DEL VECTOR 4 ? O 


INTRODUZCA LAS COORDENADAS ANTIGUAS DEL VECTOR W , 


COORDENADA 1 DEL VECTOR W?-2 
COORDENADA 2 DEL VECTOR W? 3 
COORDENADA 3 DEL VECTOR W? 4 
COORDENADA 4 DEL VECTOR W?-5 


LAS COORDENADAS NUEVAS DEL VECTOR W, SON : 


1 =-.2664 
2 = 1.3371 
3  =-.228 

4  =-.5276 
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> >>> > >>> 


—- > 
E: Sean B = ( Uy +4) Uzr/U¿rUg) , B'= (1, Var V3rV 415) dos bases de un 


mismo espacio vectorial, tales que: 


> — y > > 
Vi = 204 +3u3 + 5Uy - 2U5 
> - > — > 
v, = 7u7 + 5u, - 2uz+ 4u4 + 8us 
— > > nd de 7 co 
vz = 3uy + 4u, + uz+ Ua us 
> > > => - 
Va = 4uy, : - 2uz+ 3U4 - Sus 
> > j > oe > 

MO = 2u7 + 3u, + uz” U4 


Hallar las coordenadas respecto de la base B' de un vector W que 
tiene las coordenadas (9,-8,4,-3,1) respecto de la base B. 
SOLUCION :: 


DIMENSION DEL ESPACIO VECTORIAL V, N=?5S 


INTRODUZCA LAS COORDENADAS DE LOS VECTORES DE LA BASE NUEVA RESPECTO 
DE LA BASE ANTIGUA 


VECTOR 1 

COORDENADA 1 DEL VECTOR 1 ? 2 
COORDENADA 2 DEL VECTOR 1 ? O 
COORDENADA 3 DEL VECTOR 1 ? 3 
COORDENADA 4 DEL VECTOR 1 ? S 
COORDENADA S3 DEL VECTOR 1 ?-2 
VECTOR 2 

COORDENADA 1 DEL VECTOR 2 ? 7? 
COORDENADA 2 DEL VECTOR 2 ? 5 
COORDENADA 3 DEL VECTOR 2 ?-2 
COORDENADA 4 DEL VECTOR 2 ? 4 
COORDENADA 3 DEL VECTOR 2 ? 8 
VECTOR 3 

COORDENADA 1 DEL VECTOR 3 ? 3 
COORDENADA 2 DEL VECTOR 3 ? 4 
COORDENADA 3 DEL VECTOR 3 ? 1 
COORDENADA 4 DEL VECTOR 3 ? 8 
COORDENADA S DEL VECTOR 3 ? 9 
VECTOR 4 

COORDENADA 1 DEL VECTOR 4 ? 4 
COORDENADA 2 DEL VECTOR 4 ? O 
COORDENADA 3 DEL VECTOR 4 ?-2 
COORDENADA 4 DEL VECTOR 4 ? 3 
COORDENADA 35 DEL VECTOR 4 ?-5 
VECTOR 5 

COORDENADA 1 DEL VECTOR S ? 2 
COORDENADA 2 DEL VECTOR S ? 3 
COORDENADA 3 DEL VECTOR S ? 4 
COORDENADA 4 DEL VECTOR S ?-1 
COORDENADA S DEL VECTOR S ? O 


J.R.VIZMANOS 135 
INTRODUZCA LAS COORDENADAS ANTIGUAS DEL VECTOR YW 
COORDENADA 1 DEL VECTOR W? 9 
COORDENADA 2 DEL VECTOR W?-8 
COORDENADA 3 DEL VECTOR W? 4 
COORDENADA 4 DEL VECTOR W?-3 
COORDENADA 5 DEL VECTOR W”? 1 
LAS COORDENADAS NUEVAS DEL VECTOR YW, SON : 
W 1 = 9,1825 
W2 = 6.7643 
W3 =-7.5179 
Wa  =-6.5824 
W5 =-3.9161 
3 > — —> > —> — . 
e Sean B = (uy ,/U7,U3) y B! = (v, ,V2rV3) dos bases de un mismo espa- 
cio vectorial, tales que: 
Y. = U + 2u + 3u 
Yao lo paar 
> A y su $ En 
TS us “3 
y + 7u. + gu + 9u 
v uy u, uz 


> 
Hallar las coordenadas respecto de B' de un vector w que respecto 


de B tiene las siguientes coordenadas 


SOLUCION 


DIMENSION DEL ESPACIO VECTORIAL V, 


INTRODUZCA LAS COORDENADAS DE LOS VECTORES DE LA BASE NUEVA RESPECTO 


DE LA BASE ANTIGUA 


VECTOR 
COORDENADA 1 
COORDENADA 2 
COORDENADA 3 


VECTOR 
COORDENADA 1 
COORDENADA 2 
COORDENADA 3 


VECTOR 
COORDENADA 1 
COORDENADA 2 
COORDENADA 3 


1 


VECTOR 
VECTOR 
VECTOR 


VECTOR 
VECTOR 
VECTOR 


VECTOR 
VECTOR 
VECTOR 


NNN 
y 


DUS 


DO0<N 


> 
w= (-3,4,7). 


N =2 3 


INTRODUZCA LAS COORDENADAS ANTIGUAS DEL VECTOR W 


COORDENADA 1 DEL VECTOR W?-3 
COORDENADA 2 DEL VECTOR 
COORDENADA 3 DEL VECTOR W? 7? 


LOS VECTORES DADOS SON LINEALMENTE DEPENDIENTES. 


w? 4 


NO FORMAN BASE 


SUMA DE LAS FILAS Y LAS COLUMNAS DE UNA - 
MATRIZ 


introducción: 


El presente programa permite sumar las filas y las columnas de una 
matriz de dimensiones cualesquiera. 

Los resultados se imprimen de dos formas. De una parte, indicando 
el valor de la suma de cada fila o columna, de otra parte imprimiendo la 


matriz y la suma de filas y columnas a los márgenes. 


listado del programa: 


10 REM IRRRRRRRRRORRRRRARRODARODORDAOREARDOREADORARDRDRORRRRRMRDRRRRARRRRDORORORRRRRRRRRORIRRR 
20 REM 

30 REM Suma DE LAS FILAS Y 

40 REM 

50 REM LAS COLUMNAS DE UNA MATRIZ 
60 REM 

70 REM IRRRRRRRRRRRORARRRRRDRORORODOARDARORADORODRARDESRORDEADORORARASREARARIRERAIA 
100 PRINT 

110 PRINT "NUMERO DE FILAS DE LA MATRIZ, M="3 

120 INPUT M : 

130 PRINT "NUMERO DE COLUMNAS DE LA MATRIZ, N ="; 

140 INPUT N 

150 PRINT 

160 DIM A(M,N),S(M),P(N) 

170 PRINT "ELEMENTOS DE LA MATRIZ" 

180 PRINT 

190 FOR F=1 TO M 

200 PRINT "F IL A 9 E 

210 FOR C=1 TO N 

220 PRINT "ELEMENTO DE LA FILA";F3"COLUMNA”3C5 

230 INPUT A(F,C) 

240 NEXT C 

2530 PRINT 

260 NEXT F 

270 PRINT 

280 PRINT "SUMA DE LAS FILAS" 

290 PRINT 

300 FOR F=1 TO M 

310 S(F)=0 

320 FOR C=1 TO N 


330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
si10 
520 
530 
540 
550 
560 
570 
580 
590 
$00 
610 
620 
630 
640 
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S(F)=S(F)+A(F,C) 
NEXT € 
PRINT 
NEXT F 
PRINT 
PRINT 
PRINT 
FOR C=1 TON 
P(C)=0 

FOR F=1 TO M 
P(C)=P(CI+A(F,C) 
NEXT F 
PRINT 
NEXT C 
PRINT 
PRINT 
PRINT 
PRINT 
FOR F=1 TO M 

FOR C=1 TO N 

PRINT A(F,C)3” .3 
NEXT C 

PRINT" 

PRINT 

NEXT F 

PRINT 

PRINT 

PRINT 

FOR C=1 TO N 

PRINT P(CI5" "5 
NEXT C 

END 


"SUMA DE LAS 


"RESULTADO FINAL” 


"3S(F) 


ejercicios resueltos: 


142 176 129 
179 199 123 
179 103 167 
SOLUCION: 
NUMERO DE FILAS DE LA MATRIZ, M=? 3 
NUMERO DE COLUMNAS DE LA MATRIZ, N =?2 4 
ELEMENTOS DE LA 
FILA 1 
ELEMENTO DE LA FILA 1 COLUMNA 1 ? 142 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? 176 
ELEMENTO DE LA FILA 1 COLUMNA 3 7? 129 
ELEMENTO DE LA FILA 1 ? 118 


1. Hallar la suma de las filas y de 


COLUMNA 4 


"LA SUMA DE LOS ELEMENTOS DE LA FILA";3F;3"ES =";S(F) 


COLUMNA Ss” 


“LA SUMA DE LOS ELEMENTOS DE LA COLUMNA"3C53"ES ="5P(C) 


las columnas de la matriz: 


118 
167 


180 


137 


138 MATRICES Y DETERMINANTES 
FILA 2 
ELEMENTO DE LA FILA 2 COLUMNA 1 ? 179 
ELEMENTO DE LA FILA 2 COLUMNA 2 7? 199 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? 123 
ELEMENTO DE LA FILA 2 COLUMNA 4 ? 167 
FILA 3 
ELEMENTO DE LA FILA 3 COLUMNA 1 ? 179 
ELEMENTO DE LA FILA 3 COLUMNA 2 ? 103 
ELEMENTO DE LA FILA 3 COLUMNA 3 ? 162 
ELEMENTO DE LA FILA 3 COLUMNA 4 ? 180 
suma DE LAS FILAS 
LA SUMA DE LOS ELEMENTOS DE LA FILA 1 ES = 565 
LA SUMA DE LOS ELEMENTOS DE LA FILA 2 ES = 668 
LA SUMA DE LOS ELEMENTOS DE LA FILA 3 ES = 6424 
SuUumA DE LAS COLUMNAS 
LA SUMA DE LOS ELEMENTOS DE LA COLUMNA 1 ES = 500 
LA SUMA DE LOS ELEMENTOS DE LA COLUMNA 2 ES = 478 
LA SUMA DE LOS ELEMENTOS DE LA COLUMNA 3 ES = 414 
LA SUMA DE LOS ELEMENTOS DE LA COLUMNA 4 ES = 465 
RESULTADO FINAL 
142 176 129 118 565 
179 199 123 167 668 
179 103 162 180 624 
500 478 414 465 
Ze Hallar las sumas de las filas y las columnas de la matriz: 


SOLUCION: 


NUMERO DE FILAS DE LA 
NUMERO DE COLUMNAS DE 


ELEMENTOS 
FILA 1 


ELEMENTO DE LA FILA 1 
ELEMENTO DE LA FILA 1 


MATRIZ, 
LA MATRIZ, 
D 


E L 


COLUMNA 1 
COLUMNA 2 


A 


? 
? 


2 
4 


-=6 7 8 2 

=3 2 - 7 
6 8 9 2 
M=? 3 

N =? 6 
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ELEMENTO DE LA FILA 1 COLUMNA 3 ? -6 
ELEMENTO DE LA FILA 1 COLUMNA 4 ? 7? 
ELEMENTO DE LA FILA 1 COLUMNA 5 ? 8 
ELEMENTO DE LA FILA 1 COLUMNA é ? 2 
FILA 2 
ELEMENTO DE LA FILA 2 COLUMNA 1 ? 3 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? 7 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? -3 
ELEMENTO DE LA FILA 2 COLUMNA 4 ? 2 
ELEMENTO DE LA FILA 2 COLUMNA 5 ? 4 
ELEMENTO DE LA FILA 2 COLUMNA é ? 7 
FILA 3 
ELEMENTO DE LA FILA 3 COLUMNA 1 ? 1 
ELEMENTO DE LA FILA 3 COLUMNA 2 ? -2 
ELEMENTO DE LA FILA 3 COLUMNA 3 ? 6 
ELEMENTO DE LA FILA 3 COLUMNA 4 ? 8 
ELEMENTO DE LA FILA 3 COLUMNA 5 ? 9 
ELEMENTO DE LA FILA 3 COLUMNA é ? 2 
Suma DE LAS FILAS 
LA SUMA DE LOS ELEMENTOS DE LA FILA 1 ES = 17 
LA SUMA DE LOS ELEMENTOS DE LA FILA 2 ES = 20 
LA SUMA DE LOS ELEMENTOS DE LA FILA 3 ES = 24 
suma DE LAS COLUMNAS 
LA SUMA DE LOS ELEMENTOS DE LA COLUMNA 1 ES = 6 
LA SUMA DE LOS ELEMENTOS DE LA COLUMNA 2 ES = 9 
LA SUMA DE LOS ELEMENTOS DE LA COLUMNA 3 ES =-3 
LA SUMA DE LOS ELEMENTOS DE LA COLUMNA 4 ES = 17 
LA SUMA DE LOS ELEMENTOS DE LA COLUMNA 5 ES = 21 
LA SUMA DE LOS ELEMENTOS DE LA COLUMNA 6 ES = 11 
RESULTADO FINAL 

2 4 -6 ? 8 2 

3 ? -3 2 4 > 

1 -2 6 8 9 2 

Ñ 9. -3 e 21 11 


17 


20 


24 
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MATRIZ TRANSPUESTA 


introducción: 


Este programa permite calcular la transpuesta de una matriz A. 
La operación de transposición de matrices consiste en cambiar filas 
por columnas con lo cual,si la matriz A es de dimensión (M,N) la matriz 


transpuesta T(A) es de dimensión (N,M). 


listado del programa: 


10 REM IRRRRRORRRRRRRIRRIRRIRRRRRRRIRRRRRRRR05099500903009RRIOOE 
20 REM 

30 REM TRANSPOSICION DE 
40 REM 

50 REM MATRICES 

60 REM 

70 REM IRRADIA 
100 PRINT 

109 REM - ENTRADA DE LAS DIMENSIONES DE LA MATRIZ A - 

110 PRINT "NUMERO DE FILAS DE LA MATRIZ A, M="; 
120 INPUT mM 

130 PRINT "NUMERO DE COLUMNAS DE LA MATRIZ A, N ="3 
140 INPUT N 

150 PRINT 

159 REM - ENTRADA DE LOCOS ELEMENTOS DE LA MATRIZ A - 

160 PRINT "MA TR I 2 A* 

170 DIM A(M,N) 

180 PRINT 

190 FOR F=1 TO M 

200 PRINT "F IL A "3 F 

210 FOR C=1 TO N 

220 PRINT "ELEMENTO DE LA FILA";5F;"COLUMNA";5 C;5 

230 INPUT A(F,C) 

240 NEXT C 

230 PRINT 

260 NEXT F 

270 PRINT 

280 PRINT 

310 PRINT 

320 PRINT "LA MATRIZ TRANSPUESTA DE LA MATRIZ A ES LA MATRIZ T(A)" 
330 PRINT 
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340 DIM B(N,M) 

350 FOR C=1 TO N 

360 FOR F=1 TO M 

369 REM - SE CAMBIA EL ELEMENTO (F,C) 
370 B(C,F)=A(F,C) 

380 PRINT BI1C,F);5" y 

390 NEXT F 

400 PRINT 

410 NEXT C 

420 END 


ejercicios resueltos: 


POR EL 


(C,F) 


E Hallar la transpuesta de la matriz A = 


SOLUCION: 

NUMERO DE FILAS DE LA MATRIZ A, 
NUMERO DE COLUMNAS DE LA MATRIZ A, 
MATRIZ A 


FILA 1 


ELEMENTO DE LA FILA 1 COLUMNA 1 ? 2 
ELEMENTO DE LA FILA 1 COLUMNA 2 ?-3 
ELEMENTO DE LA FILA 1 COLUMNA 3 ”? 4 
ELEMENTO DE LA FILA 1 COLUMNA 4 ? 1 
ELEMENTO DE LA FILA 1 COLUMNA 5 ? 3 
FILA 2 

ELEMENTO DE LA FILA 2 COLUMNA 1 2-7 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? 8 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? 9 
ELEMENTO DE LA FILA 2 COLUMNA 4 ? O 
ELEMENTO DE LA FILA 2 COLUMNA 5 ? 2 


“y 


z 
"om 
e] 
uN 


LA MATRIZ TRANSPUESTA DE LA MATRIZ A ES LA MATRIZ 


Urb UN 


A Hallar la transpuesta de la 


SOLUCION ; 


matriz: 


T(A) 


or 


142 MATRICES Y DETERMINANTES 


NUMERO DE FILAS DE LA MATRIZ A, M=?3 
NUMERO DE COLUMNAS DE LA MATRIZ A, N =? 2 
MATRIZ A 


FILA 1 
ELEMENTO DE LA FILA 1 COLUMNA 1 ? .57 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? 2.14 


FILA 2 
ELEMENTO DE LA FILA 2 COLUMNA 1 ? 3.78 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? 4.23 
FILA 3 


ELEMENTO DE LA FILA 3 COLUMNA 1 ?-.75 
ELEMENTO DE LA FILA 3 COLUMNA 2 ?-.,24 


LA MATRIZ TRANSPUESTA DE LA MATRIZ A ES LA MATRIZ T(A) 
57 3.78 =.?73 
2.14 4.23 -.24 


3. Hallar la transpuesta de la matriz : 


ES 23 56 79 -5 76 31 
40 20 56 79 84 31 

SOLUCION: 

NUMERO DE FILAS DE LA MATRIZ A, Mm =? 2 

NUMERO DE COLUMNAS DE LA MATRIZ A, N =?2 7 

MATRIZ A 


PF -T LA 1 


ELEMENTO DE LA FILA 1 COLUMNA 1 ? 23 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? 56 
ELEMENTO DE LA FILA 1 COLUMNA 3 ? 79 
ELEMENTO DE LA FILA 1 COLUMNA 4 ?-5 
ELEMENTO DE LA FILA 1 COLUMNA 5 ? 76 
ELEMENTO DE LA FILA 1 COLUMNA 6 ? 31 
ELEMENTO DE LA FILA 1 COLUMNA 7 ”? 89 
FILA 2 

ELEMENTO DE LA FILA 2 COLUMNA 1 ? 40 
ELEMENTO DE LA FILA 2-COLUMNA 2 ? 20 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? 36 
ELEMENTO DE LA FILA 2 COLUMNA 4 ? 79 
ELEMENTO DE LA FILA 2 COLUMNA 5 ? 84 
ELEMENTO DE LA FILA 2 COLUMNA 6 ? 31 
ELEMENTO DE LA FILA 2 COLUMNA 7 ? 21 


LA MATRIZ TRANSPUESTA DE LA MATRIZ A ES LA MATRIZ T(A) 


23 40 
56 20 
79 56 
-S5 79 

76 84 
31 31 


89 21 


89 
21 


SUMA Y DIFERENCIA DE MATRICES 


introducción: 


Este programa sirve para calcular la suma y diferencia de las matri 


ces A y B. Para ello es preciso que las matrices sean equidimensionales. 


La suma y diferencia se realiza respectivamente en las lineas 470 y 


580 del programa. 


listado del programa: 


REM RRRRRORRORORRORRRRRRRRRRRRRRRRRRRRRRRRRRRRDORARROOARRRRORDARRRARARARDEODREAREA 


10 

20 

30 

40 

50 

60 

70 

100 
108 
109 
110 
120 
130 
140 
150 
159 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


REM 
REM 
REM 
REM 
REM 


SsumaA Y DIFERENCIA 


DE MATRICES 


REM IRRADIA 


PRINT 
REM - 
REM - 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
REM - 
PRINT 


ENTRADA DE LAS DIMENSIONES DE LAS DOS MATRICES - 

LAS MATRICES A Y B TIENEN QUE SER EQUIDIMENSIONALES - 
"NUMERO DE FILAS DE LAS MATRICES A Y B, M ="; 

mM 

"NUMERO DE COLUMNAS DE LAS MATRICES A Y B, N ="; 

N 


ENTRADA DE LOS ELEMENTOS DE LA MATRIZ A - ” 
"MATRIZ A" 


DIM A(M,N) 


PRINT 


FOR F= 


PRINT 


FOR C= 


PRINT 
INPUT 


NEXT C 


PRINT 


NEXT F 


PRINT 
PRINT 


1 TOM 

"FILA *9F 

1 TON 

"ELEMENTO DE LA FILA";F;"COLUMNA"3 C5 
A(F,C) 
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239 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
419 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
320 
530 
539 
3540 
3550 
555 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 


MATRICES Y DETERMINANTES 


REM - ENTRADA DE LOS ELEMENTOS DE LA MATRIZ B - 
PRINT "MATR 1 2 B" 

DIM B(M,N) 

PRINT 

FOR F=1 TO M 

PRINT "FILA"; F 

FOR C=1 TO N 

PRINT "ELEMENTO DE LA FILA";F;"COLUMNA” 5 
INPUT B(F,C) 

NEXT C 

PRINT 

NEXT F 

PRINT 

PRINT 

REM - SUMA DE LOS ELEMENTOS CORRESPONDIENTES - 
PRINT "MATR I Z Suma S= Abt B” 
PRINT 

DIM S(M,N) 

FOR F=1 TO M 

FOR C=1 TO N 

S(F,C)=A(F,C)+B(F,C) 

PRINT S(F,C);5" .3 

NEXT C 

PRINT 

NEXT F 

PRINT 

PRINT 

REM - DIFERENCIA DE LOS ELEMENTOS CORRESPONDIENTES - 
PRINT "MATR I 2 DIFERENCIA D=A- 
DIM D(M,N) 

PRINT 

FOR F=1 TO M 

FOR C=1 TON 

D(F,C)=A(F,C)-B(F,C) 

PRINT D(F,C)3” ”3 

NEXT C 

PRINT 

NEXT F 

PRINT 

PRINT 

END 


c; 


B" 


ejercicios resueltos: 


so 


1. Dadas las matrices: 


-8 y 


Hallar A+B y 


LUCION: 


NUMERO DE FILAS DE 
NUMERO DE COLUMNAS 


mA 


LAS MATRICES A Y B, 
DE LAS MATRICES A Y B, N 


TR IZ A 
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FILA 1 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


FOTOL.:A Ya 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


FILA 3 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


MATRIZ 


FILA 1 

ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


FILA 2 

ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


FILA 3 

ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


LA 
LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 
LA 


DIFERENCIA 


—1 
-3 


N.NNN»NN Rh a pa hu 


Ud Ud y 


N.NNNNM,N Pp opa pa pa pe 


UU uyy 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


o5 Nr go £4duN 


o05WnNnr 


nun - 050UdNr 


05UNr 
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MATRICES Y DETERMINANTES 


o: Dadas las matrices: 


223 3.4 

A = .01 .56 
Zi L Li 1 

Hallar A+B y A-B 


SOLUCION: 


5.78 
.78 
9.08 


NUMERO DE FILAS DE LAS MATRICES A Y Bi, 


NUMERO DE COLUMNAS DE LAS MATRICES A Y Bi, 


MATRIZ 


FILA 1 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTC DE 


FILA 2 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


FILA 3 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


MATRIZ 


FILA 1 

ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


FILA 2 

ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


FILA 3 

ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


MATRIZ 


2.53 
1.é6l 
12.01 


MATRIZ 


-2.07 
-1.59 
-7.39 


LA FILA 
LA FILA 
LA FILA 


LA FILA 
LA FILA 
LA FILA 


LA FILA 
LA FILA 
LA FILA 


DIFERENCIA 


-=1.3 
-3.24 
6.71 


NA»N 


UU y 


¡AM! 


COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


1.88 
-2.02 
12.18 


Ne 
“9 


c: 


- 


N 


N rr 


«3 


2:53 4.7 
1.6 3.8 
9.7 => 6 


PRODUCTO DE UN ESCALAR POR UN MATRIZ 


introducción: 


Este breve programa sirve para calcular el producto de un escalar 


por una matriz de cualquier dimensión. 


El programa es evidentemente muy sencillo y no requiere ninguna ex 


plicación. 


listado del programa: 


10 REM IRRRRRRRRRRRNIRRIRRRRR00)0N09390990000009N900909N0900N09RORROOOEAA 


20 


REM 


30 
40 
50 
60 
70 


REM PRODUCTO DE UN ESCALAR 

REM 

REM POR UNA MATRIZ 

REM 

REM RR 9900300200090 


100 
109 
110 
120 
130 
140 
150 
159 
160 
170 
180 
190 
200 
zi0 
220 
230 
240 
250 
260 
20 


z30 


PRINT 
REM - 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
REM - 
PRINT 


ENTRADA DE 
"NUMERO DE 
mM 
"NUMERO DE 
N 


ENTRADA DE 
"MA TRI 


DIM A(M,N) 


PRINT 


FOR F= 


PRINT 


FOR C= 


PRINT 
INPUT 


NEXT C 


PRINT 


NEXT F 


PRINT 
PRINT 


1 TOM 
"FILA 
1TON 


LAS DIMENSIONES DE LA MATRIZ A - 
FILAS DE LA MATRIZ A, Mm =" 


COLUMNAS DE LA MATRIZ Ba, N ="5 


LOS ELEMENTOS DE LA MATRIZ A -' 


Z Aa” 


”3 F 


"ELEMENTO DE LA FILA”";3F;3"COLUMNA"3 C;5 


A(F,C) 
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PRINT 
iNPUT K 
PRINT 
PRINT 
REM - 
PRINT 
DIM K(M,N) 

FOR F=1 TO M 
FOR C=1 TO N 
K(F,C)=K*XA(F,C) 


290 
300 
310 
320 
329 
330 
340 
350 
360 
370 
380 
390 
400 
410 
450 


NEXT C 
PRINT 
NEXT F 
END 


"MATRIZ PRODUCTO DE LA MATRIZ 
PRODUCTO DEL ESCALAR POR CADA ELEMENTO DE LA 


PRINT K(F,C);" e 


MATRICES Y DETERMINANTES 


"INTRODUZCA EL ESCALAR K ="; 


A POR EL ESCALAR 


ejercicios resueltos: 


1. Calcular el producto de -7 por la matriz A = 


SOLUCION: 


NUMERO DE 
NUMERO DE 


FILAS DE LA 
COLUMNAS DE 


MATRIZ A 


FILA 1 

ELEMENTO DE LA 
ELEMENTO DE LA 
ELEMENTO DE LA 
ELEMENTO DE LA 


“1 
m 
Lan 
D 

h hh a ha 


FILA 2 

ELEMENTO DE LA 
ELEMENTO DE LA 
ELEMENTO DE LA 
ELEMENTO DE LA 


= 
m 
E 
D 
NNNN 


FILA 3 

ELEMENTO DE LA 
ELEMENTO DE LA 
ELEMENTO DE LA 
ELEMENTO DE LA 


. 
mn 
r 
D 

U UU uy 


INTRODUZCA EL ESCALAR 
MATRIZ PRODUCTO DE LA 
=Z. -14 21 


14 -35 -56 
0] -14 -63 


MATRIZ A, mM 
LA MATRIZ Bi, N 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


bb UN - 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


BbUun - 
YY Yo 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


bU Une 
Y YY. 
YU UINO 


k =>-7 


MATRIZ A POR EL ESCALAR 


-49 


>» 
e 


=21 


K 


MATRIZ 


=" 5 K 
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E Calcular el producto de 3.27 por la matriz A = 


SOLUCION: 


NUMERO DE FILAS DE LA MATRIZ A, mM =2 
NUMERO DE COLUMNAS DE LA MATRIZ B, N 


1 
Y 
NN 


MATRIZ A 

FOTO L.A 1 

ELEMENTO DE LA FILA 1 COLUMNA 1 ? 3.24 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? 64.89 
FILA 2 


ELEMENTO DE LA FILA 2 COLUMNA 1 ? 1.09 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? 9.23 


INTRODUZCA EL ESCALAR K =? 3.27? 
MATRIZ PRODUCTO DE LA MATRIZ A POR EL ESCALAR Kk= 3.272 


10.5948 22.5303 
3.5693 30.18321 


PRODUCTO DE MATRICES 


introducción: 


Este programa sirve para calcular el producto de dos matrices 
A(M,N) y B(P,0Q0) para ello es preciso que N = P , en Caso contrario las 
matrices no son multiplicables. 

La matriz producto C es de dimensiones (M,0Q). 


En la linea 440-500 se realiza el producto de filas por columnas. 


listado del programa: 


10 REM IRRRRRORRRRRORRORORRROROROROROARORRROARRRRDRRRORORRRRORDRORROORRRRORORROORROODAROOARCOARDEA 
20 REM 

30 REM PRODUCTO DE MATRICES 

490 REM 

50 REM IRRRRRRIRSORRRORRORORORRRROORORORRORRRRRRORRRORRORRRORRROROOOROODODORORDARDEOREARRR 
100 PRINT 

110 PRINT "NUMERO DE FILAS DE LA MATRIZ A(M,N), Mm ="; 

120 INPUT M 

130 PRINT "NUMERO DE COLUMNAS DE LA MATRIZ A(M,N), N ="; 

140 INPUT N: DIM A(M,N) 

150 PRINT 

160 PRINT "NUMERO DE FILAS DE LA MATRIZ B(P.,Q), Pp ="; 

170 INPUT P 

130 IF P<>N THEN GOTO 630 


190 PRINT "NUMERO DE COLUMMAS DE LA MATRIZ B(P,Q), 0 =”; 
200 INPUT Q: DIM B(N,Q) 

Z10 PRINT 

219 REM - ENTRADA DE LA MATRIZ A - 

220 PRINT "MA TRI 2 a” 


230 PRINT 

240 FOR F=1 TO M 

250 PRINT "FILA "j3F 

260 FOR C=1 TO N 

270 PRINT "ELEMENTO DE LA FILA"3F;"COLUMNA”5C5 
280 INPUT A(F,C) 

290 NEXT C 

300 PRINT 

310 NEXT F 

320 PRINT 

330 PRINT 

339 FEM - ENTRADA DE LA MATRIZ B - 
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340 PRINT "MATR I Z B" 

350 PRINT 

360 FOR F=1 TO P 

370 PRINT "FILA "jF 

330 FOR C=1 TO Q 

370 PRINT "ELEMENTO DE LA FILA";5F;"COLUMNA"5C5 
400 INPUT B(F,C) 

410 NEXT C 

420 PRINT 

430 NEXT F 

440 FOR F=1 TO M 

450 FOR C=1 TO Q 

460 FOR K=1 TO N 

469 REM - PRODUCTO DE FILAS POR COLUMNAS - 
470 C(F,C)=C(F,.CI)+A(F,K)XB(K,C) 

480 NEXT K 

490 NEXT C 

500 NEXT F 

510 PRINT 

570 PRINT 

539 FRINT 

539 REM IMPRESION DE LA MATRIZ PRODUCTO - 
540 PRINT "MA TR 1 2 PRODUCTO" 
550 PRINT 

5é0 FOR F=1 TO Mm 

570 FOR C=1 TO Q 

580 PRINT C(F,C);" "5 

53590 NEXT C 

600 FRINT 

610 NEXT F 

62% STOP 

639 FRINT 

6340 FRINT 

550 PRINT "EL PRODUCTO A(M,N).B(P,Q) NO ES POSIBLE PUES N HA DE SER IGUAL A P" 
660 END 


' 


ejercicios resueltos: 


E; Hallar el siguiente producto: 


o 6 3 > 
2 "1 3 ; 9 2 
7 4 -8 6 2 
SOLUCION: 
NUMERO DE FILAS DE LA MATRIZ A(M,N), Mm ==? 2 
NUMERO DE COLUMNAS DE LA MATRIZ A(M,N), N =7? 3 
NUMERO DE FILAS DE LA MATRIZ B(P,0), P=? 3 


b 


MUMERO DE COLUMNAS DE LA MATRIZ B(P,Q), Q =? 
MATRIZ A 


FATAL A 1 

ELEMENTO DE LA FILA 1 COLUMNA 1 ? 2 
ELEMENTO DE LA FILA 1 COLUMNA 2 ?-1 
ELEMENTO DE LA FILA 1 COLUMNA 3 ? 3 
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FILA 2 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


MATRIZ 


FILA 1 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 2 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 3 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


MATRIZ 


z1 
30 


10 
13 


pa Calcular 


-45 


SOLUCION 


NUMERO DE 
NUMERO DE 


NUMERO DE 
NUMERO DE 


MATRIZ 


FILA 1 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 
ELEMENTO DE 


LA 
LA 
LA 


LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 


1 
m 
r 
D 
hhh 


- 
. 
r 
D 

NNNPnN 


= 
La) 
r 
DP 

UY UU yu 


a] 
La) 
F 
DP 

MN nh 


MATRICES Y DETERMINANTES 


COLUMNA 1 2 2 
COLUMNA 2 ? 4 
COLUMNA 3 ?-8 
COLUMNA 1 ? 6 
COLUMNA 2 ? 3 
COLUMNA 3 2-5 
COLUMNA 4 ? 2 
COLUMNA 1 ? 9 
COLUMNA 2 ? 2 
COLUMNA 3 ? 1 
COLUMNA 4 ? 5 
COLUMNA 1 ? á 
COLUMNA 2 ? 2 
COLUMNA 3 ? 3 
COLUMNA 4 ? 5 


PRODUCTO 


=2 


-93 


23 
87 
12 


FILAS DE 
COLUMNAS 


FILAS DE 
COLUMNAS 


A 


LA FILA 
LA FILA 
LA FILA 
LA FILA 


31 
21 
20 


LA 
DE 


LA 
DE 


-hl pp pe jp 


14 
-6 


35 

36, “12 12 
36 42 4 
39 21 2 
31 


MATRIZ A(M,N), mM 
LA MATRIZ A(M,N), NN 


Ú 
Y 


2 


MATRIZ B(P,Q), P 
LA MATRIZ B(P,Q), Q 


" 
“Y 
buy 


Cc 


COLUMNA 1 ? 2 
COLUMNA 2 ? 23 
COLUMNA 3 ? 31 
COLUMNA 4 ? 56 


65 
39 
72 
21 
12 


el siguiente producto de matrices: 


-89 
=11 
31 
31 
78 


30 
21 
47 
41 
54 
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A AAA AAA AAA A AAA A A A q E EOEO «4 <xAlL000I q AAA A A A A A  — _—_— _—_— —_ — —— — Co SA 


ELEMENTO DE LA FILA 1 COLUMNA 5 2-12 


FILA ya 

ELEMENTO DE LA FILA 2 COLUMNA 1 ? 45 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? 32 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? 21 
ELEMENTO DE LA FILA 2 COLUMNA 4 ? 36 
ELEMENTO DE LA FILA 2 COLUMNA S ? 42 
FILA 3 

ELEMENTO DE LA FILA 3 COLUMNA 1 2-45 
ELEMENTO DE LA FILA 3 COLUMNA 2 ? 12 
ELEMENTO DE LA FILA 3 COLUMNA 3 ? 20 
ELEMENTO DE LA FILA 3 COLUMNA 49 ? 39 
ELEMENTO DE LA FILA 3 COLUMMA S ? 21 
MATRIZ B 

FILA 1 

ELEMENTO DE LA FILA 1 COLUMNA 1 ? 35 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? é5S 
ELEMENTO DE LA FILA 1 COLUMNA 3 ?-89 
ELEMENTO DE LA FILA 1 COLUMNA 4 ? 30 
FILA 2 

ELEMENTO DE LA FILA 2 COLUMNA 1 ? 12 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? 39 
ELEMENTO DE LA FILA 2 COLUMNA 3 ?-11, 
ELEMENTO DE LA FILA 2 COLUMNA 4 ? 21 
FILA 3 

ELEMENTO DE LA FILA 3 COLUMNA 1 ? 4 
ELEMENTO DE LA FILA 3 COLUMNA 2 ? 72 
ELEMENTO DE LA FILA 3 COLUMNA 3 ”? 31 
ELEMENTO DE LA FILA 3 COLUMNA 4 ? 42? 
FILA 4 

ELEMENTO DE LA FILA 4 COLUMNA 1 ? 2 
ELEMENTO DE LA FILA 4 COLUMNA 2 ? 21 
ELEMENTO DE LA FILA 4 COLUMNA 3 ? 31 
ELEMENTO DE LA FILA 4 COLUMNA 4 ? 41 
FILA 5 

ELEMENTO DE LA FILA S COLUMNA 1 2-31 
ELEMENTO DE LA FILA S COLUMNA 2 ? 12 
ELEMENTO DE LA FILA S COLUMNA 3 ? 7278 
ELEMENTO DE LA FILA S COLUMNA 4 ? 54 
MATRIZ FRODUCTO 

954 4291 1330 3648 
1473 9090 81 7908 


-1924 54 7340 2575 
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ER Calcular el siguiente producto de las matrices; 


1 2 
1 2 3 1 2 3 4 
4 -1 5 0 4 . 1 > 
6 7 8 5 1 4 6 


SOLUCION: 


NUMERO DE FILAS DE LA MATRIZ A(M,N), M=? 3 
NUMERO DE COLUMNAS DE LA MATRIZ A(M,N), N =7?2 S 


NUMERO DE FILAS DE LA MATRIZ B(P,0Q), Pp =?2 4 


EL PRODUCTO A(M,N).B(P,Q) NO ES POSIELE PUES N HA DE SER IGUAL A P 


POTENCIA DE UNA MATRIZ 


introducción: 


Este programa permite calcular la potencia n-ésima(n,n*natural) de 
una matriz cuadrada A. 

Para ello se realiza un producto reiterado de A por A,n veces, uti 
lizando un índice I como contador de las iteraciones. En la instrucción 
450, se tiene que si I = N se detiene la repetición de los productos ini- 


ciándose la impresión de la matriz potencia. 


listado del programa: 


10 REM RR 9RRNRRRRRRRBRRRRRRORDROORORROODRORDEDRORDOCOODORDEAEOOOE RARA 
20 REM 


30 REM POTENCIA DE UNA MATRIZ CUADRADA 
340 REM 

50 REM DE EXPONENTE NATURAL 

60 REM 


70 REM RRRRRRRRRRRRRRRRR0R2R020009R9RR0RRRRRRRDRRRRRIRIRRROIRRRIRIRRIOIOIOIRIOOIOOOIIA AAA 
100 PRINT 

110 PRINT "NUMERO DE FILAS O DE COLUMNAS DE LA MATRIZ A(M,M), M ="; 

120 INPUT Mm 

125 DIM A(M,M),B(M,M),C(M,M) 


130 PRINT "EXPONENTE DE LA POTENCIA, A(M,M)”N, N ="*"; 
140 INPUT N 

150 PRINT 

159 REM - ENTRADA DE LA MATRIZ A - 

160 PRINT "MA TR I 2 A* 

170 PRINT 


180 FOR F=1 TO M 

190 PRINT "F IL A ";3F 

200 FOR C=1 TO M 

210 PRINT "ELEMENTO DE LA FILA"3F;"COLUMNA"3C;5 
220 INPUT A(F,C) 

230 NEXT C 

240 PRINT 

250 NEXT F 

259 REM - LA MATRIZ B(N,N) SE IGUALA A LA MATRIZ A(N,N) 
260 FOR F=1 TO M 

270 FOR C=1 TO M 
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280 
290 
300 
309 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
529 
530 
540 
550 
560 
570 
580 
590 
600 
é6l0 
620 


MATRICES Y DETERMINANTES 


B(F,C)=A(F,C) 


NEXT C 

NEXT F 

REM - SE INICIA EL RECUENTO DE LAS POTENCIAS 
I=1 

FOR F=1 TO Mm 


FOR C=1 TO M 
C(F,C)=0 

NEXT C 

NEXT F 

FOR F=1 TO M 

FOR C=1 TO M 

FOR K=1 TO M 
C(F,C)=C(F,C)+A(F,K)XB(K,C) 
NEXT K 

NEXT C 

NEXT F 

I=I+1 

IF I=N THEN GOTO 529 
FOR F=1TO M 

FOR C=1 TO mM 
B(F,C)=C(F,C) 

NEXT C 

NEXT F 

GOTO 320 

PRINT 


REM - IMPRESION DE LA MATRIZ POTENCIA - 


PRINT "MATR 1 2 
PRINT 

PRINT 

FOR F=1 TO mM 


FOR C=1 TO M 

PRINT C(F,C)5” "5 
NEXT C 

PRINT 

NEXT F 

END 


ejercicios resueltos: 


SOLUCION: 

NUMERO DE FILAS O DE COLUMNAS DE LA 
EXPONENTE DE LA POTENCIA, A(M,M)"N, 
MATRIZ A 

FTE. A 

ELEMENTO DE LA FILA 1 COLUMNA 
ELEMENTO DE LA FILA 1 COLUMNA 
ELEMENTO DE LA FILA 1 COLUMNA 
ELEMENTO DE LA FILA 1 COLUMNA 
ELEMENTO DE LA FILA 1 COLUMNA 


oooorP 


0d rr 
A OS OS ON] 
oh popa pa 


oOoorer 


POTENCIA 


oorrr 
OPrerrrP 
bhebeerr 


MATRIZ A(M,M), 


N =? 


yA Hallar la potencia cuarta de la matriz: 


4 


A(M,M)""3N 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 
ELEMENTO 
El EMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


F PF LA 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


MATRI 


OO0OODO- 
O000O0r¿ 


2 


DE 


LA 
LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 
LA 


FILA 
FILA 
FILA 
FILA 
FILA 


FILA 
FILA 
FILA 
FILA 
FILA 


FILA 
FILA 
FILA 
FILA 
FILA 


FILA 
FILA 
FILA 
FILA 
FILA 


POTENCIA 


pa Calcular: 


SOLUCION: 


NUMERO DE FILAS O DE COLUMNAS DE LA MATRIZ A(M,M), 
EXPONENTE DE LA POTENCIA, A(M,M)?N, =?2 5 
MATRIZ A 

FILA 1 

ELEMENTO DE LA FILA 1 COLUMNA 1 ? .65 

ELEMENTO DE LA FILA 1 COLUMNA 2 ? .76 

ELEMENTO DE LA FILA 1 COLUMNA 3 ? .89 

FILA 2 

ELEMENTO DE LA FILA 2 COLUMNA 1 ? .,45 

ELEMENTO DE LA FILA 2 COLUMNA 2 ? .56 

ELEMENTO DE LA FILA 2 COLUMNA 3 ? .34 

FILA 3 

ELEMENTO DE LA FILA 3 COLUMNA 1 ? .23 

ELEMENTO DE LA FILA 3 COLUMNA 2 ? .45 


bosbdb lA UU (Ud a NNNNNAN 


o gu (1 01 tn 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


20 35 
10 20 
q 10 
1 4 
0 1 
0.65 
0.45 
0.23 


UN ua uN 
JUDY 


go 5 dUN - 


o05bQNr- 


JAS YU Y 


ES) 
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0 

1 

1 

1 

1 

0) 

o 

1 

1 

1 

0 

0) 

lo) 

1 

1 

e) 

0 

0 

e) 

1 

A(M,M)? 4 

0.76 0.89 
0.56 0.34 
0.45 0:17 
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MATRICES Y DETERMINANTES 


ELEMENTO DE LA FILA 3 COLUMNA 3 ”? .1? 


3. Calcular la potencia quinta de la matriz: 


MATRIZ POTENCIA A(M.M)? 5 
35.18611292 4.2134123 3.2519808 
2.0153967 2.6692862 2.0602756 
1.2497639 1.6552639 1.2775339 


2 0 =3 8 2 
0 -1 3 1 8 
=2 =1 0 5 
0 8 6 0 - Y 
2 6 9 2 1 
4 -8 0 - 3 5 


SOLUCION: 


NUMERO DE 
EXPONENTE 


MATRI 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILAS O DE COLUMNAS DE LA MATRIZ A(M,M), 
DE LA POTENCIA, A(M,M)'N, N =? 5 
z A 

1 
DE LA FILA 1 COLUMNA 1 7? 2 
DE LA FILA 1 COLUMNA 2 ? 6 
DE LA FILA 1 COLUMNA 3 ? -3 
DE LA FILA 1 COLUMNA 4 ? 4 
DE LA FILA 1 COLUMNA 5 ? 8 
DE LA FILA 1 COLUMNA 6 ? 2 
2 
DE LA FILA 2 COLUMNA 1 ? O 
DE LA FILA 2 COLUMNA 2 ? -1 
DE LA FILA 2 COLUMNA 3 ? 5 
DE LA FILA 2 COLUMNA 4 ? -7 
DE LA FILA 2 COLUMNA 5 7? 3 
DE LA FILA 2 COLUMNA é ? 8 
3 
DE LA FILA 3 COLUMNA 1 ? -2 
DE LA FILA 3 COLUMNA 2 ? -1 
DE LA FILA 3 COLUMMA 3 ? O 
DE LA FILA 3 COLUMNA 4 ? 2 
DE LA FILA 3 COLUMNA 5 ? O 
DE LA FILA 3 COLUMNA á ? 5 
4 
DE LA FILA 4 COLUMNA 1 7? O 
DE LA FILA 4 COLUMNA 2 ? 8 
DE LA FILA 4 COLUMNA 3 ? 6 
DE LA FILA 4 COLUMNA 4 ? O 
DE LA FILA 4 COLUMNA 5 ? -2 
DE LA FILA 4 COLUMNA á ? 1 


” 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


MATRI 


89910 
-3343 
- 19881 
-7038 
79286 
54527 


LA FILA 
LA FILA 
LA FILA 
LA FILA 
LA FILA 
LA FILA 


LA FILA 
LA FILA 
LA FILA 
LA FILA 


. LA FILA 


LA FILA 


POTENCIA 


69097 
11434 
20959 
155515 
102994 
-136001 


ada aa a Y 


[O S 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


26362 
101210 
15038 
67018 
83087 
24278 


005dNr 


ODOUu0_5dNr 


ES E] 
rr NOxvNO 0 


SS] 
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AMM)? 


80278 
-90940 
-19659 

-3145 

28068 
-36187 


5 


115419 
47420 
6112 
-2423 
é8816 
65899 


57601 
149821 
30340 
-22462 
31796 


130240: 
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DETERMINANTE DE UNA MATRIZ CUADRADA 


introducción: 


Este programa sirve para hallar el determinante de una matriz cua- 


drada, cualquiera que sea el orden (la limitación unicamente viene dada 


por la capacidad de su micro). 


do 


El procedimiento consiste en conseguir triangular la matriz, sien- 
los elementos de la diagonal principal Y(1),Y(2), + + + Y(N). 
Por tanto el determinante de la matriz A será. 
A = Y (1) 1 (2). 0. «Y (N) 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
109 
110 
120 
130 
140 
150 
150 
170 
180 
190 
200 
210 
220 
229 
230 
240 
250 
260 
270 


REM IRIS 
REM 


REM DETERMINANTE DE UNA 
REM 

REM MATRIZ CUADRADA 

REM 


REM IICA 
PRINT 

REM - ENTRADA DE LA MATRIZ A - 

PRINT "ORDEN DEL DETERMINANTE DE LA MATRIZ A(N,N), N ="; 
INPUT N 

DIM A(N,N),Y(N) 

FOR F=1 TON 

PRINT 

PRINT "FILA .yF 

FOR C=1 TO N 

PRINT "ELEMENTO DE LA FILA”";3F;3"COLUMNA"5C;5 

INPUT A(F,C) 

NEXT C 

PRINT 

NEXT F 

REM - INICIO DEL CALCULO DEL DETERMINANTE - 

FOR C=1 TO N : 

FOR F=C TO N 

IF A(F,C)<>0 THEN GOTO 290 

NEXT F 

PRINT "EL DETERMINANTE ES = O, LA MATRIZ A(N,N) ES SINGULAR" 


280 GOTO 520 
290 FOR K=1 TO N 
300 X=A(C,K) 
310 A(C,K)=A(F,K) 
320 A(F,K)=X 
330 NEXT K 


340 Y(C)=A(C,C) 


350 Y=1/A(C,C) 
360 FOR K=1 TO N 

370 A(C,K)=YXA(C,K) 
380 NEXT K 
390 FOR F=1 TO N 

400 IF F=C GOTO 450 
410 Y=-A(F,C) 
420 FOR K=1 TO N 
430 A(F,K)=A(F,K)+YXA(C,K) 
440 NEXT K 
450 NEXT F 
460 NEXT C 


470 D=1 


480 FOR F=1 TO N 
490 D=DXY(F) 
500 NEXT F 


510 PRINT 


520 END 


ejercicios resueltos: 


Luenars el valor del siguiente determinante: 


"EL DETERMINANTE DE LA MATRIZ DADA ES IGUAL A 


SOLUCION :: 


ORDEN DEL DETERMINANTE DE LA MATRIZ A(N,N), 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


1 
DE LA 
DE LA 
DE LA 
DE LA 
DE LA 


FILA 
FILA 
FILA 
FILA 
FILA 


FILA 
FILA 
FILA 
FILA 
FILA 


oh ha pa pa 


NNNNN 


N J3J0 QQ Pp 
Bbo0 oa PR rn 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


Do Pu uy 


one 


0o05dNr 
Y“ Uy 
+ -»- fro 


Y uy Y. 
OoNdUN 
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161 


bre upo 


=? 


D 


162 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


LA 


LA 
LA 


LA 
LA 


LA 
LA 
LA 
LA 
LA 


LA 
LA 
LA 
LA 
LA 


FILA 


FILA 
FILA 


FILA 
FILA 


FILA 
FILA 
FILA 
FILA 
FILA 


FILA 
FILA 
FILA 
FILA 
FILA 


bbisbs UU ua y 


a a YN au Y 


EL DETERMINANTE DE LA 


MATRICES Y DETERMINANTES 


COLUMNA 


COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


o05WQnr 
ES NN] 


o0A54dUN 


0UNr 


Yo YY Ye. 
-Nx0d3y 


Y uy Yo 
bLbOb AN 


MATRIZ DADA 


ES IGUAL A -6888 


Ze Hallar el valor del determinante: 


¡SOLUCION :: 


ORDEN DEL DETERMINANTE DE LA MATRIZ ANN), 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


1 
DE LA 
DE LA 
DE LA 
DE LA 


FILA 
FILA 
FILA 
FILA 


FILA 
FILA 
FILA 
FILA 


FILA 
FILA 
FILA 
FILA 


Rh oh ha py 


NNN"NNmN 


U Yuu 


bu n P 


Ron 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


N PB ou 


buno bun- 


Bb Un 


YU 


Y UY yy 
NP Ad 


UU DN Pa 


b UN 


rbdn 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


EL DETERMINANTE DE LA 


4 


DE LA FILA 4 
DE LA FILA 4 
DE LA FILA 4 
DE LA FILA 4 


COLUMNA 1 
COLUMNA 2 
COLUMNA 3 
COLUMNA 4 


MATRIZ DADA ES IGUAL A 


? 
? 
P 
? 
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UN 


3 nallar el valor del determinante: 


SOLUCION: 


ORDEN DEL DETERMINANTE DE LA MATRIZ A(N,N), 


FCUTL. A 
ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 


DE LA 
DE LA 
DE LA 


FILA 
FILA 
FILA 


FILA 
FILA 
FILA 


FILA 
FILA 
FILA 


EL DETERMINANTE ES 


NNN 


Y Uy 


O, 


COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


Nr 
“Y 


N 


N 


LA MATRIZ A(N,N) 


N 


ES 


160 


ES SINGULAR 


163 


MATRIZ INVERSA 


introducción: 


Este programa permite calcular la matriz inversa de una matriz 


cuadrada A. Si el determinante de la matriz A es cero, entonces el pro 


gra 


tie 


cid 


ta 


ma informa en el sentido de que la matriz es singular, es decir no 
ne inversa. 

La dimensión de la matriz viene limitada unicamente por la capa- 
ad de memoria de su micro. 

Los elementos de la matriz inversa obtenida, están redondeados has 


la cuarta cifra decimal, por la instrucción 610. 


listado del programa: 


10 

20 

30 

40 

Jo) 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
1830 
190 
200 
z10 
220 
230 
240 
250 
260 
270 
280 
290 


REM ISR 0232092000900 AA 
REM 


REM CALCULO DE LA MATRIZ 

REM 

REM INVERSA DE UNA MATRIZ CUADRADA 
REM 


REM ISRRSRROIRIRRORIRIOIRIORIRSRIRIRIRRIIRIRRIIORIRRIRIRORRIRIOIOOIIOIIIOIIIOIOIOOIOIOOIOIIIIAA: 
PRINT 


PRINT "DIMENSION DE LA MATRIZ A INVERTIR N ="; 
INPUT N 

PRINT 

PRINT "MA TR 1 2 a" 

DIM A(N,N),B(N,N) 

PRINT 


FOR F=1 TO N 

PRINT "FILA "3F 
FOR C=1 TO N 

PRINT "ELEMENTO DE LA FILA";3F;"COLUMNA";C;5 
INPUT A(F,C) 

NEXT C 

PRINT 

NEXT F 

PRINT 

PRINT 

FOR F=1 TO N 
B(F,F)=1 

NEXT F 
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300 FOR C=1 TO N 

310 FOR F=C TO N 

320 IF A(F,C)<>0 THEN GOTO 360 
330 NEXT F 


340 PRINT "MATRIZ SINGULAR: NO TIENE INVERSA” 


359 GOTO é50 

360 FOR K=1 TO N 
370 X=A(C,K) 

380 A(C,K)=A(F,K) 
390 A(F,K)=X 

400 XB=B(C,K) 

410 B(F,K)=XB 

420 NEXT K 

430 Y=1/A(C,C) 

3440 FOR K=1 TO N 
950 A(C,K)=A(C,K)XY 
460 B(C,K)=B(C,K)XY 
470 NEXT K 

480 FOR P=1 TO N 
490 IF P=C GOTO 550 
500 Y=-A(P,C) 

510 FOR K=1 TO N 
520 A(P,K)=A(P,K)+A(C,K)XY 
530 B(P,K)=B(P,K)+B(C,K)XY 
540 NEXT K 

550 NEXT P 

560 NEXT C 


570 PRINT "LA MATRIZ INVERSA DE LA MATRIZ DADA ES 


580 PRINT 

590 FOR F=1 TO N 

600 FOR C=1 TO N 

610 PRINT INT(B(F,C)X10000+.5)/10000;" 
óé20 NEXT C 

630 PRINT 

640 NEXT F 

650 END 


ejercicios resueltos: 


Loasrias la inversa de la matriz A. 


123 354 765 
A = -123 567 -987 
234 -456 259 


SOLUCION: 


DIMENSION DE LA MATRIZ A INVERTIR N =?2 3 
MATRIZ A 


FILA 1 

ELEMENTO DE LA FILA 1 COLUMNA 1 ? 123 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? 354 
ELEMENTO DE LA FILA 1 COLUMNA 3 ? 765 
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FILA 2 


ELEMENTO DE LA FILA 2 COLUMNA 
ELEMENTO DE LA FILA 2 COLUMNA 
ELEMENTO DE LA FILA 2 COLUMNA 
FILA 3 

ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 


UN - 


Ud Nr 


?-123 
? 567 
?2-987 


? 234 
?-456 
? 259 


LA MATRIZ INVERSA DE LA MATRIZ DADA ES : 


.0018 .002é . 0047 
.0012 .0009 -.0002 
. 0005 -.0008 -.0007 


Le Hallar la matriz inversa de la matriz A. 


2.56 
21 
A = 9.21 
2.34 
3.33 


SOLUCION: 


3.67 ——1::78 
2.51 7.23 
6.67 8.9 

4.31 -2.78 
4.98 2.65 


DIMENSION DE LA MATRIZ A INVERTIR N =2 


MATRIZ A 


FILA 1 


ELEMENTO DE LA FILA 1 COLUMNA 
ELEMENTO DE LA FILA 1 COLUMNA 
ELEMENTO DE LA FILA 1 COLUMNA 
ELEMENTO DE LA FILA 1 COLUMNA 
ELEMENTO DE LA FILA 1 COLUMNA 
FILA 2 

ELEMENTO DE LA FILA 2 COLUMNA 
ELEMENTO DE LA FILA 2 COLUMNA 
ELEMENTO DE LA FILA 2 COLUMNA 
ELEMENTO DE LA FILA 2 COLUMNA 
ELEMENTO DE LA FILA 2 COLUMNA 
FILA 3 

ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 
FILA 4 

ELEMENTO DE LA FILA 4 COLUMNA 
ELEMENTO DE LA FILA 4 COLUMNA 
ELEMENTO DE LA FILA 4 COLUMNA 
ELEMENTO DE LA FILA 4 COLUMNA 
ELEMENTO DE LA FILA 4 COLUMNA 


o04 UN o 5UN- 05 dNnNr- 


on - 


N 
N 
y 


2.54 
Da3Z 
4.98 
5.67 
3.61 


2.79 
4.31 
2.45 
4.65 
2.11 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 
ELEMENTO 


LA MATRIZ INVERSA 


. 6087 
-.1619 
-.0856 
-.5363 

. 4465 


3. Hallar la 


5 
DE 
DE 
DE 
DE 
DE 


LA 
LA 
LA 
LA 
LA 


FILA 
FILA 
FILA 
FILA 
FILA 


«1273 
-.1634 
.064 

-.0431 
.1783 


SOLUCION :: 


DIMENSION DE LA MATRIZ A INVERTIR 


MATRIZ 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 


LA 
LA 
LA 


LA 
LA 
LA 


LA 
LA 
LA 


A 


FILA 
FILA 
FILA 


FILA 
FILA 
FILA 


FILA 
FILA 
FILA 


MATRIZ SINGULAR: NO 


COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 
COLUMNA 


aaa a a 


«1383 
-.0916 
-.029 
.0741 
-.0924 


inversa de 


COLUMNA 
COLUMNA 
1 COLUMNA 


2 COLUMNA 
2 COLUMNA 
2 COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


Ud Uy 


n0A5UNr 
E 
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3.33 
4.98 
2.65 
3.61 
2.11 


DE LA MATRIZ DADA ES : 


-.1541 
-.0625 


-.0904 


la matriz A. 


Pp 


Y 


UN r 


. 4226 
-.2188 


N =? 3 


y 
N - 


TIENE INVERSA 
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DESCOMPOSICION DE UNA MATRIZ CUADRADA EN 


SUMA DE DOS MATRICES 
UNA SIMETRICA Y OTRA HEMISIMETRICA 


introducción: 


Este programa permite calcular la descomposición de una matriz 


cuadrada A,como suma de una matriz simetrica S y una matriz hemisimétri 


ca 


li 


10 

z0 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
159 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
259 
260 
270 
280 


H . La descomposición esta basada en las siguientes igualdades. 


s=3(A+A!) H=>3(A-Al) 


stado del programa: 


REM III III III III IICA 
REM 

REM DESCOMPOSICION DE UNA MATRIZ 

REM 

REM CUADRADA EN suma DE UNA MATRIZ 

REM 

REM SIMETRICA Y UNA HEMISIMETRICA 

REM 

REM ISI III III III III III A 
PRINT 


PRINT "NUMERO DE FILAS O DE COLUMNAS DE LA MATRIZ A, N ="; 
INPUT N 

PRINT 

PRINT "MATR 1 2 A" 


DIM A(N,N),B(N,N),S(N,N),H(N,N) 
REM - ENTRADA DE LOS ELEMENTOS DE LA MATRIZ A - 


PRINT 
FOR F=1 TO N 
PRINT "FILA "5fñf 


FOR C=1 TO MN 

PRINT "ELEMENTO DE LA FILA”;3F;"COLUMNA";3 C; 
INPUT A(F,C) 

NEXT C 

PRINT 

NEXT F 

PRINT 

REM - CALCULO DE LA MATRIZ TRANSPUESTA DE LA MATRIZ A - 
FOR C=1 TON 

FOR F=1 TON 

B(C,F)=A(F,C) 
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289 REM - SE CAMBIA EL ELEMENTO (1,J) POR EL (J,1) - 
290 NEXT F 

300 NEXT C 

309 REM - CALCULO DE LA MATRIZ SIMETRICA S(N,N) - 
310 PRINT 

320 PRINT "LA MATRIZ A DADA SE DESCOMPONE EN SUMA DE UNA SIMETRICA Y UNA HEMISIM 
ETRICA” 

330 PRINT "DEL SIGUIENTE MODO :” 

340 PRINT 

350 PRINT "MATRIZ SIMETRICA :” 

360 PRINT 

370 FOR F=1 TO N 

380 FOR C=1 TO N 

390 S(F,C)=(A(F,C)+B(F,C))/2 

400 PRINT S(F,C);" ”5 

410 NEXT C 

420 PRINT 

430 NEXT F 

439 REM - CALCULO DE LA MATRIZ HEMISIMETRICA H(N,N) - 
440 PRINT 

450 PRINT "MATRIZ HEMISIMETRICA :" 

460 PRINT 

470 FOR F=1 TO N 

480 FOR C=1 TO N 

490 H(F,C)=(A(F,C)-B(F,C))/2 

500 PRINT H(F,C)3" ”5 

510 NEXT C 

520 PRINT 

530 NEXT F 

540 END 


ejercicios resueltos: 


AA la matriz A : 


2 - 7 
0 2 -1 

A = 4 A en suma de dos matrices 
2 -4 7 9 


una simétrica y otra hemisimétrica. 
SOLUCION: 


NUMERO DE FILAS O DE COLUMNAS DE LA MATRIZ A, N>=2 4 
MATRIZ A 


FILA 1 


ELEMENTO DE LA FILA 1 COLUMNA 1 ? 2 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? -1 
ELEMENTO DE LA FILA 1 COLUMNA 3 ?2 3 
ELEMENTO DE LA FILA 1 COLUMNA 4 ? 2 
FILA 2 

ELEMENTO DE LA FILA 2 COLUMNA 1 ? O 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? 6 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? 2 
ELEMENTO DE LA FILA 2 COLUMNA 4 ? -1 
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FILA 3 


ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 
FILA 4 

ELEMENTO DE LA FILA 4 COLUMNA 
ELEMENTO DE LA FILA 4 COLUMNA 
ELEMENTO DE LA FILA 4 COLUMNA 
ELEMENTO DE LA FILA 4 COLUMNA 


bUUun 


bb Nr 


LA MATRIZ A DADA SE DESCOMPONE EN 


DEL SIGUIENTE MODO : 


MATRIZ SIMETRICA : 


4. 
0 6 4 -2. 
3.5 9 -4 4. 
4.5 -2.5 4.5 9 
MATRIZ HEMISIMETRICA : 
e) =.5 2.9 Le D 
.5 0] -2 1.5 
3 2 o A 
-2,.5 = 0,5 Zas 0) 


De Descomponer la matriz A: 


133 

A = 690 

391 

una simétrica y otra 
SOLUCION: 

NUMERO DE FILAS O DE COLUMNAS 
MATRIZ A 

FILA 1 
ELEMENTO DE LA FILA 1 COLUMNA 
ELEMENTO DE LA FILA 1 COLUMNA 


ELEMENTO DE LA FILA 1 COLUMNA 


FILA 2 


ELEMENTO DE LA FILA 2 COLUMNA 
ELEMENTO DE LA FILA 2 COLUMNA 
ELEMENTO DE LA FILA 2 COLUMNA 


FILA 3 

ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 
ELEMENTO DE LA FILA 3 COLUMNA 


SUMA DE UNA SIMETRICA Y UNA HEMISIMETRICA 


769 345 
492 107 en suma de dos matrices 
207 103 
hemisimétrica. 
DE LA MATRIZ A, N =? 3 
1? 153 
2 ? 769 
37345 
1 7? 690 
2 ? 9492 
3”? 107? 
17? 391 
2 ? 207 
37103 
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LA MATRIZ A DADA SE DESCOMPONE EN SUMA DE UNA SIMETRICA Y UNA HEMISIMETRICA 
DEL SIGUIENTE MODO : 


MATRIZ SIMETRICA : 


153 729.5 368 
729.5 492 157 
368 157 103 


MATRIZ HEMISIMETRICA : 


0 39.5 -23 
-39.5 o -50 
23 50 O 


3. Descomponer la matriz A como suma de una matriz simétrica y otra 
hemisimétrica. 


1656 7234 2354 2113 4636 
1231 6764 1356 4626 5847 
A =| 3636 1453 8681 3586 56 
4246 6467 367 574 366 
367 3477 4158 8362 1567 


SOLUCION: 
NUMERO DE FILAS O DE COLUMNAS DE LA MATRIZ A, N=?5 
MATRIZ A 


FILA 1 


ELEMENTO DE LA FILA 1 COLUMNA 1 ? 1656 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? 7234 
ELEMENTO DE LA FILA 1 COLUMNA 3 ? 2354 
ELEMENTO DE LA FILA 1 COLUMNA 4 ? 2113 
ELEMENTO DE LA FILA 1 COLUMNA 5 ? 4636 
FILA 2 

ELEMENTO DE LA FILA 2 COLUMNA 1 ? 1231 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? 6764 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? 1356 
ELEMENTO DE LA FILA 2 COLUMNA 4 ? 4626 
ELEMENTO DE LA FILA 2 COLUMNA S ? 5842 
FILA 3 

ELEMENTO DE LA FILA 3 COLUMNA 1 ? 3636 
ELEMENTO DE LA FILA 3 COLUMNA 2 ? 1453 
ELEMENTO DE LA FILA 3 COLUMNA 3 ? 8681 
ELEMENTO DE LA FILA 3 COLUMNA 4 ? 3586 
ELEMENTO DE LA FILA 3 COLUMNA S ? 56 
FILA 4 

ELEMENTO DE LA FILA 4 COLUMNA 1 ? 4246 
ELEMENTO DE LA FILA 4 COLUMNA 2 ? 6467 
ELEMENTO DE LA FILA 4 COLUMNA 3 ? 367 
ELEMENTO DE LA FILA 4 COLUMNA 4 ? 574 
ELEMENTO DE LA FILA 4 COLUMNA S 7? 366 
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FILA 5 


ELEMENTO DE LA FILA S COLUMNA 1 7? 367 

ELEMENTO DE LA FILA S COLUMNA 2 ? 3477 
ELEMENTO DE LA FILA S COLUMNA 3 ? 4158 
ELEMENTO DE LA FILA S COLUMNA 4 ? 8362 
ELEMENTO DE LA FILA 5 COLUMNA 5 ? 1567 


LA MATRIZ A DADA SE DESCOMPONE EN SUMA DE UNA SIMETRICA Y UNA HEMISIMETRICA 
DEL SIGUIENTE MODO : 


MATRIZ SIMETRICA : 


1656 4232.5 2995 3179.5 2501.5 
4232.5 6764 1404.5 5546.5 4662 
2995 19404.5 s8é8l 1976.5 2107 
3179.5 5546.5 1976.35 5749 4364 
2501.35 4662 2107 4364 1567 


MATRIZ HEMISIMETRICA : 


e) 3001.5 -691 -1066.5 2134.5 


-3001.5 e -48.5 -920.5 1185 
641 48.5 e) 1609.35 -2051 
1066.35 920.5 -1609.5 le] -3998 


-2134.5 -1185 2051 3998 e) 


RESOLUCION DE SISTEMAS DE ECUACIONES 
LINEALES 


introducción: 


Este programa permite resolver un sistema de ecuaciones lineales 


siempre que tenga el mismo número de ecuaciones que de incógnitas. 


Si el determinante de la matriz de coeficientes es nulo, el sis- 


tema no es de Cramer y el programa informa en el sentido de que el sis- 


tema tiene infinitas soluciones. En caso contrario el programa proporcio 


na 


las soluciones del sistema redondeadas por la instrucción 530. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


REM RR 9959202003200 
REM 

REM RESOLUCION DE SISTEMAS 

REM 

REM DE ECUACIONES LT NE AL E.S 

REM 


REM IRRSRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRORRRDRRORRORORDARDOAROOORORODOADX 
PRINT 

PRINT "NUMERO DE ECUACIONES DEL SISTEMA N ="; 
INPUT N 

DIM A(N,N+1) 

FOR F=1 TO N 

PRINT 

PRINT "ECUACION "j;F 

FOR C=1 TO N+1 

IF C=N+1 THEN GOTO 210 

PRINT "COEFICIENTE A("3F3","3C53") ="; 

GOTO 220 

PRINT "TERMINO INDEPENDIENTE  —B("3F3") ="; 
INPUT A(F,C) 

NEXT C 

NEXT F 

FOR F=1 TO N 

FOR C=F TO N 


IF A(F.C)<>0 THEN 320 

NEXT C 

PRINT 

PRINT "EL SISTEMA TIENE INFINITAS SOLUCIONES" 
GOTO 550 
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320 FOR K=1 TO N+1 

330 X=A(F,K) 

340 A(F,K)=A(C,K) 

350 A(C,K)=X 

360 NEXT K 

370 Y=1/A(F,F) 

380 FOR K=1 TO N+1 

390 A(F,K)=A(F,K)XY 

400 NEXT K 

410 FOR C=1 TO N 

420 IF C=F THEN 470 

430 Y=-A(C,F) 

440 FOR K=1 TO N+1 

4950 A(C,K)=A(C,K)+A(F,K)XY 
460 NEXT K 

470 NEXT C 

480 NEXT F 

490 PRINT 

500 PRINT "LA SOLUCION DEL SISTEMA ES :" 
510 PRINT 

520 FOR C=1 TO N 

530 PRINT "X("3C5”)="3 INT(A(C,N+1)X10000+.5)/10000 
540 NEXT C 

550 END 


ejercicios resueltos: 


1. Resolver el siguiente sistema de ecuaciones lineales: 


x= + ¿y + 32 
5xX + 6y + 7z = 
9x + 10y + 1l1z = 12 


SOLUCION: 


NUMERO DE ECUACIONES DEL SISTEMA N =? 3 


ECUACION 1 


COEFICIENTE A( 1, 1.) =? 1 
COEFICIENTE A(1,2)=?2 
COEFICIENTE A(1,, 3) =? 3 
TERMINO INDEPENDIENTE B( 1 ) =? 4 
ECUACION 2 

COEFICIENTE A(2, 1.) =? 5 
COEFICIENTE A(2,2)=?6 
COEFICIENTE A(2, 3) =? 72 


TERMINO INDEPENDIENTE B( 2) =? 8 
ECUACION 3 

COEFICIENTE A( 3, 1.) =? 9 
COEFICIENTE A( 3, 2) =? 10 
COEFICIENTE A( 3, 3) =? 11 
TERMINO INDEPENDIENTE B( 3 ) =? 12 


EL SISTEMA TIENE INFINITAS SOLUCIONES 
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NRO el siguiente sistema de ecuaciones lineales: 


2x — 3y + 6z + 4t + 2u= 0 
3x - 5y + 62 + 8t + u= 3 
TX + 9y - 22 + 3t + 5u = 1 

8y - 72 + 5t - 23u= 1 
5x + 2y - 3z + 7t = 2 


SOLUCION: 


NUMERO DE ECUACIONES DEL SISTEMA N =? 5 


ECUACION 1 


COEFICIENTE A(i1,, 11) =? 2 
COEFICIENTE A( 1, 2) =?-3 
COEFICIENTE A( 1,3.) =? 6 
COEFICIENTE A( 1, 4.) =? 4 
COEFICIENTE A(1,5)=?2 


TERMINO INDEPENDIENTE B( 1 ) =?2 O 


ECUACION 2 


COEFICIENTE A( 2, 1.) =?2 3 
COEFICIENTE A( 2,2) =?-S 
COEFICIENTE A(2,3)=?6 
COEFICIENTE A( 2,4) =? 8 
COEFICIENTE A( 2,5) =? 1 
TERMINO INDEPENDIENTE B( 2 ) =?2 3 
ECUACION 3 

COEFICIENTE A( 3, 1.) =? 72 
COEFICIENTE A( 3, 2.) =? 9 
COEFICIENTE A( 3, 3) =?-2 
COEFICIENTE A( 3, 4) =2? 3 
COEFICIENTE A( 3 S5S3)-=?5 
TERMINO INDEPENDIENTE B( 3) =? 1 
ECUACION 4 

COEFICIENTE A(4.,1)=?0 
COEFICIENTE A(4,2)=?8 
COEFICIENTE A( 4,3.) =?2-7 
COEFICIENTE A(49,495)=2?5 
COEFICIENTE A( 4 5) =?-3 
TERMINO INDEPENDIENTE B(9.) =? 1 
ECUACION 5 

COEFICIENTE A(S,1)=2?5S 
COEFICIENTE A(S5S,2)=? 2 
COEFICIENTE A(S, 3) =?-3 
COEFICIENTE A(5,45)=?2 7 
COEFICIENTE A(S5S S53)-=?0 
TERMINO INDEPENDIENTE B(5)=?2 


LA SOLUCION DEL SISTEMA ES : 


X( 1 )=-5.8818 
X( 2 )=-2.4182 
X( 3 )=-4,4455 
X( 94 )= 3.2727 
X( 5 )= 9.0455 
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de Resolver el siguiente sistema de ecuaciones lineales: 


3x + 2y + 5z = 22 
X-- y+ z= 2 
2X + y - 3 =-5 


SOLUCION 


NUMERO DE ECUACIONES DEL SISTEMA N =? 3 


ECUACION 1 


COEFICIENTE A( 1, 1) =? 3 
COEFICIENTE A( 11,2) =? 2 
COEFICIENTE A(1., 3.) =? 5 
TERMINO INDEPENDIENTE B( 1 ) =? 22 
ECUACION 2 

COEFICIENTE A( 2, 1.) =? 1 
COEFICIENTE A(2, 2.) =?-1 
COEFICIENTE A(2, 3) =? 1 
TERMINO INDEPENDIENTE B( 2.) =? 2 
ECUACION 3 

COEFICIENTE A( 3, 1.) =? 2 
COEFICIENTE A( 3, 2) =? 1 
COEFICIENTE A( 3, 3) =?-3 
TERMINO INDEPENDIENTE B( 3 ) =?-5 


ECUACION CARACTERISTICA DE UNA MATRIZ 


introducción: 


Este programa sirve para calcular los coeficientes de la ecuación 


característica de una matriz cuadrada A. 


Se llama ecuación característica de una matriz, a la ecuación que 


se obtiene al desarrollar el siguiente determinante: la - sI] e igualar 


a cero, siendo I la matriz unitaria de orden N. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
150 
160 
170 
180 
190 
z00 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


REM RRRRRORRROROOROROREARDARDERODROSROSRDRORDRRRRORRAOIIIOOIOIO AIRES III IIA 
REM 


REM CALCULO DE Los COEFICIENTES 
REM 

REM DE LA ECUACION CARACTERISTICA 
REM 


REM RRRRRRRRORRORORORRORORROARRRORROARRRRDRORORRRRRRRDRRRRROREOODIOROIOOOIOAOIO III 


PRINT 

PRINT "NUMERO DE FILAS O COLUMNAS DE LA MATRIZ A(N,N), N ="; 
INPUT N 

DIM A(N,N),C(N,N),X(N),Y(N) 

PRINT 

FOR F=1 TON 

PRINT "FILA .yF 


FOR C=1 TO N 
PRINT "ELEMENTO DE LA-FILA";5F;"COLUMNA"5C;5 
INPUT A(F,C) 
C(F,C)=A(F,C) 

NEXT C 

PRINT 

NEXT F 

FOR K=1 TO N-1 

s=0 

FOR F=1 TON 
S=S+C1(F,F) 

NEXT F 

X(K)=S/K 

FOR F=1 TO N 
C(F,F)=C(F,F)-X(K) 
NEXT F 

FOR C=1 TO N 

FOR F=1 TO N 
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360 Y(F)=C(F,C) 

370 NEXT F 

380 FOR F=1 TO N 

390 C(F,C)=0 

400 FOR P=1 TO N 

410 C(F,C)=C(F,C)+A(F,P)XY(P) 
420 NEXT P 

430 NEXT F 

440 NEXT C 

450 NEXT K 

460 X(N)=C(N,N) 

470 PRINT 

480 PRINT 

470 PRINT "LOS COEFICIENTES DE LA ECUACION CARACTERISTICA SON :" 
500 PRINT 


S10 PRINT "COEFICIENTE DE X""53N3" = 1" 

520 FOR K=1 TO N 

530 PRINT "COEFICIENTE DE X""5N-K3" = "3-x(K) 
540 NEXT K 

550 END 


ejercicios resueltos: 


¡A los coeficientes de la ecuación característica de la matri: 


2  -3 4 72D 


0 -1 5 
-3. 7 -4 8 -2 
- 2 
7 -4 
SOLUCION: 
NUMERO DE FILAS O COLUMNAS DE LA MATRIZ A(N,N), N =? 5 
FILA 1 
ELEMENTO DE LA FILA 1 COLUMNA 1 ?2 2 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? -3 
ELEMENTO DE LA FILA 1 COLUMNA 3 ? 4 
ELEMENTO DE LA FILA 1 COLUMNA 4 ? 2 
ELEMENTO DE LA FILA 1 COLUMNA S ? -5 
FILA 2 
ELEMENTO DE LA FILA 2 COLUMNA 1 ? 6 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? 9 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? O 
ELEMENTO DE LA FILA 2 COLUMNA 4 ? -1 
ELEMENTO DE LA FILA 2 COLUMNA 5 ? 5 
FILA 3 
ELEMENTO DE LA FILA 3 COLUMNA 1 ? -3 
ELEMENTO DE LA FILA 3 COLUMNA 2 ? 7 
ELEMENTO DE LA FILA 3 COLUMNA R 2 -a 
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ELEMENTO DE LA FILA 3 COLUMNA 4 ? 8 
ELEMENTO DE LA FILA 3 COLUMNA 5 ? -2 
FILA q 
ELEMENTO DE LA FILA 4 COLUMNA 1 ? 8 
ELEMENTO DE LA FILA 4 COLUMNA 2 ? -1 
ELEMENTO DE LA FILA 4 COLUMNA 3 ? O 
ELEMENTO DE LA FILA 4 COLUMNA 4 ? 9 
ELEMENTO DE LA FILA 4 COLUMNA 5 ? 2 
FILA 5 
ELEMENTO DE LA FILA S COLUMNA 1 ? > 
ELEMENTO DE LA FILA 5 COLUMNA 2 ? 4 
ELEMENTO DE LA FILA S COLUMNA 3 ? 1 
ELEMENTO DE LA FILA S COLUMNA 4 ? 8 
ELEMENTO DE LA FILA S COLUMNA S ? -4 
LOS COEFICIENTES DE LA ECUACION CARACTERISTICA SON : 
COEFICIENTE DE XxX” 5 = 1 
COEFICIENTE DE xXx" 4 = -12 
COEFICIENTE DE X” 3 -53 
COEFICIENTE DE X* 2 = 119 
COEFICIENTE DE XxX” 1 = 5220 
COEFICIENTE DE xXx” O = 29648 


SOLUCION 


NUMERO DE FILAS O COLUMNAS DE 


FILA 


ELEMENTO DE LA FILA 1 COLUMNA 
ELEMENTO DE LA FILA 1 COLUMNA 


FILA 


ELEMENTO DE LA FILA 2 COLUMNA 
ELEMENTO DE LA FILA 2 COLUMNA 


1 


z2 


. 
. 


LA MATRIZ A(N,N), 


N 


N 


LOS COEFICIENTES DE LA ECUACION 


COEFICIENTE DE xXx” 
COEFICIENTE DE Xx” 
COEFICIENTE DE X” 


2 
1 
le] 


= 1 
= -15 
= 14 


CARACTERISTICA SON : 


N =? 2 
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e los coeficientes de la ecuación característica de la matriz: 


1 -3 -3 
-1 -1 -3 
1 5 7 
SOLUCION: 
NUMERO DE FILAS O COLUMNAS DE LA MATRIZ A(N,N), N =? 3 
FILA 1 
ELEMENTO DE LA FILA 1 COLUMNA 1 ? 1 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? -3 
ELEMENTO DE LA FILA 1 COLUMNA 3 ? -3 
FILA 2 
ELEMENTO DE LA FILA 2 COLUMNA 1 ? -1 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? -1 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? -3 


FILA 3 

ELEMENTO DE LA FILA 3 COLUMNA 1 ? 
ELEMENTO DE LA FILA 3 COLUMNA E 
ELEMENTO DE LA FILA 3 COLUMNA 3 ”? ? 


N 
y 
nm - 


LOS COEFICIENTES DE LA ECUACION CARACTERISTICA SON : 


COEFICIENTE DE XxX” 3 = 1 
COEFICIENTE DE XxX” 2 = -7 
COEFICIENTE DE XxX” 1 = 14 
COEFICIENTE DE xX* O = -8 


VALORES PROPIOS DE UNA MATRIZ 


introducción: 


Este programa sirve para calcular, los valores propios de una ma- 


triz cuadrada, que son las raices de su ecuación característica. 


en 


Su cálculo esta basado en el algoritmo de Rutishauer, que consiste 


descomponer la matriz A dada, como producto de dos matrices B y H, ta- 


les que B es una matriz triangular inferior con todos los elementos de la 


diagonal principal iguales a 1, y H es una matriz triangular superior. 


Por un proceso iterativo se consigue transformar la matriz A en una 


matriz triangular superior tal que, los valores propios buscados son los 


elementos de la diagonal principal. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


REM IRRRRRRRRRORRORORRRRORRORRRRRRRRRORRARRRARARRRRRRRRRRRRRRRRORRRRRRDRRRRRRRRRRARARE 


REM 

REM CALCULO DE LoS VALORES 

REM 

REM PROPIOS DE UNA MATRIZ CUADRADA 
REM 


REM RR 9999 IOIAA 
PRINT 


PRINT "NUMERO DE FILAS O COLUMNAS DE-LA MATRIZ A(N,N), N ="; 
INPUT N 

DIM A(N,N).,B(N,N),H(N,N),VI(N) 

PRINT 

FOR F=1 TO N 

PRINT "FILA "3F 


FOR C=1 TO N 

PRINT "ELEMENTO DE LA FILA”;F;"COLUMNA"5C5 
INPUT A(F,C) 

NEXT C 

PRINT 

NEXT F 

FOR F=1 TO N 
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240 V(F)=0 

259 NEXT F 

260 FOR M=1 TO 30 

270 FOR F=1 TO N 

280 B(F.F)=1 

290 NEXT F 

300 FOR C=1 TO N 

310 H(1,C)=A(1,C) 

320 NEXT C 

330 FOR F=2 TO N 

390 B(F,1)=A(F,1)/A(1,1) 
350 NEXT F 

360 FOR K=2 TO N 

370 FOR C=K TO N 

380 T=0 

390 FOR F=1 TO K-1 

400 T=T+H(F,CIXB(K,F) 
410 NEXT F 

920 H(K,C)=A(K,C)-T 

430 NEXT C 

440 IF K=N THEN GOTO 520 
450 FOR F=K+1 TO N 

460 R=0 

470 FOR C=1 TO K-1 

480 R=R+B(F,C)XAH(C,K) 
490 NEXT C 

500 B(F,K)=(A(F,K)-R)/H(K,K) 
510 NEXT F 

520 NEXT K 

530 FOR F=1 TO N 


FOR C=1 TO N 

D=0 

FOR K=1 TO N 
D=D+H(F,K)XB(K,C) 
NEXT K 

A(F,C)=D 

NEXT C 

NEXT F 

a=0 

FOR F=1 TON 

IF ABS(A(F,F)-V(F))>1XE-S THEN LF=1 
NEXT F 

FOR F=1 TON 
V(F)=A(F,F) 

NEXT F 

IF Q=0 THEN GOTO 720 
PRINT "NO CONVERGE” 
GOTO 800 

NEXT M 

PRINT 

PRINT 

PRINT "LOS VALORES PROPIOS DE LA MATRIZ SON :” 
PRINT 

FOR F=1 TO N 

PRINT "V"j3F3" ="3UV(F) 
NEXT F 

END 
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ejercicios resueltos: 


A los valores propios de la matriz 


SOLUCION : 


NUMERO DE FILAS O COLUMNAS DE 


F TILA 
ELEMENTO 
ELEMENTO 


FILA 
ELEMENTO 
ELEMENTO 


DE 
DE 


DE 
DE 


LOS VALORES 


N ” 


v 
v 


1 
LA FILA 
LA FILA 


2 


LA FILA 
LA FILA 


PROPIOS 


1 COLUMNA 
1 COLUMNA 


2 COLUMNA 
2 COLUMNA 


=> 2 


DE LA MATRIZ SON : 


MARN los valores 


SOLUCION: 


NUMERO DE FILAS O COLUMNAS DE 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 


DE 
DE 
DE 


DE 
DE 
DE 


DE 
DE 
DE 


LOS VALORES 


= 3 
= 3 


va 
vo 2 
V3 =-1 


FILA 
FILA 
FILA 


FILA 
FILA 
FILA 


FILA 
FILA 
FILA 


PROPIOS 


1 COLUMNA 
COLUMNA 
1 COLUMNA 


- 


2 COLUMNA 
2 COLUMNA 
2 COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


YU YU y 


23 
40 
-20 


propios de la matriz 


DE LA MATRIZ SON : 


es 
=5 
a 


16 
32 
-13 
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odas los valores propios de la matriz 


SOLUCION: 


NUMERO DE FILAS O COLUMNAS DE LA MATRIZ A(N,N), N 
FILA 1 

ELEMENTO DE LA FILA 1 COLUMNA.i ? 2 
ELEMENTO DE LA FILA 1 COLUMNA 2 ”?-1 
ELEMENTO DE LA FILA 1 COLUMNA 3 ? 3 
ELEMENTO DE LA FILA 1 COLUMNA 4 ? 4 
FILA 2 

ELEMENTO DE LA FILA 2 COLUMNA 1 ? 1 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? O 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? 2 
ELEMENTO DE LA FILA 2 COLUMNA 4 ?-4 
FILA 3 

ELEMENTO DE LA FILA 3 COLUMNA 1 ? 3 
ELEMENTO DE LA FILA 3 COLUMNA 2 ? 1 
ELEMENTO DE LA FILA 3 COLUMNA 3 ?-3 
ELEMENTO DE LA FILA 3 COLUMNA 4 ? 5 
FILA 4 

ELEMENTO DE LA FILA 4 COLUMNA 1 ? 2 
ELEMENTO DE LA FILA 4 COLUMNA 2 ? 7 
ELEMENTO DE LA FILA 4 COLUMNA 3 ?-3 
ELEMENTO DE LA FILA 4 COLUMNA 4 ? 4 


LOS VALORES PROPIOS DE LA MATRIZ SON : 


1 = 7.2102498 
2 =-.22518323 
3 =-.8049054 

4 =-3,1801611 


VECTORES PROPIOS DE UNA MATRIZ 


introducción: 


Este programa permite calcular el mayor valor propio y el vector 
propio asociado. 

El cálculo se basa en el método de la potencia iterada. 

M es un contador que proporciona el número de iteraciones y E es 
el nivel de error escogido. 

En las lineas 480-500 se normaliza el vector. 

En las lineas 420-450 se convierte la matriz C en matriz B. 


En las linea 320 se inicia la iteración incrementandose en 460. 


listado del programa: 


10 REM IRRRRRRORRRRRORRROODRRRRARDRRRIRRIRIRDRRRDRRRRDRRRRIRRRRRRRDORORDRORDOROARRARRRRRRRORRARE 


20 REM 

30 REM CALCULO DE Los VECTORES 

40 REM 

50 REM PROPIOS DE UNA MATRIZ CUADRADA 

60 REM 

70 REM ISROSRIROROIOOIOIORIOIOIISIIOOIRIIRIOIIRIRIIRRISRORIRRRRRRRR0029095500592090025200036% 
100 PRINT 

110 PRINT "NUMERO DE FILAS O COLUMNAS DE LA MATRIZ A(N,N), N ="; 


120 INPUT N 
130 DIM A(N,N),B(N,N),C(N,N) 


140 PRINT 
150 FOR F=1 TO N 
160 PRINT "F IL A .5F 


170 FOR C=1 TO N 

180 PRINT "ELEMENTO DE LA FILA";5F;"COLUMNA"3C5 

190 INPUT A(F,C) 

200 NEXT C 

z10 PRINT 

220 NEXT F 

230 PRINT "INTRODUZCA EL NIVEL DE EXACTITUD DESEADO E ="; 
240 INPUT E 

250 PRINT "INTRODUZCA EL NUMERO MAXIMO DE ITERACCIONES Mm ="; 
260 INPUT M1 

270 REM - CALCULO DEL VALOR PROPIO - 
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280 FOR F=1 TO N 

290 B(F.,1)=1/SQRI(N) 

300 NEXT F 

310 B=1 

320 M=0 

330 A=0 

340 FOR F=1 TO N 

350 FOR C=1 TO N 

360 C(F,C)=0 

370 FOR K=1 TO N 

380 C(F,C)=C(F,C)+A(F,K)XAB(K,¿C) 
390 NEXT K 

400 NEXT C 

410 NEXT F 

420 FOR F=1 TO N 

430 B(F,1)=C(F,1) 

440 A=A+B(F,1)XB(F,1) 

450 NEXT F 

460 M=M+1 

470 A=SOR(A) 

480 FOR F=1 TO N 

490 B(F,1)=B(F,1)/A 

500 NEXT F 

510 IF ABS((A-B)/A)<E THEN GOTO 550 
520 B=A 

530 IF M>=M1 THEN GOTO 550 

540 GOTO 330 

550 PRINT 

560 PRINT "MAYOR VALOR PROPIO ="5A 
570 PRINT 

580 PRINT "VECTOR PROPIO = ("; 
590 FOR F=1 TO N 

600 PRINT B(F,1)3” *"; 

610 NEXT F 

620 PRINT ")” 

630 PRINT 

640 PRINT "NUMERO DE ITERACCIONES ="3M 
é50 END 


ejercicios resueltos: 


AA el mayor valor propio y su vector propio asociado de 
la matriz: 


2 4 
3. A3 
SOLUCION :: 
NUMERO DE FILAS O COLUMNAS DE LA MATRIZ A(N,N), N =?2 2 


FILA 1 
ELEMENTO DE LA FILA 1 COLUMNA 1 * 
ELEMENTO DE LA FILA 1 COLUMNA 2 ? 4 


FILA 2 
ELEMENTO DE LA FILA 2 COLUMNA 
ELEMENTO DE LA FILA 2 COLUMNA 


N - 
y > 
pe 
U 
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INTRODUZCA EL NIVEL DE EXACTITUD DESEADO 
INTRODUZCA EL NUMERO MAXIMO DE ITERACCIONES 


MAYOR VALOR PROPIO = 13.999999 


VECTOR PROPIO = 


NUMERO DE ITERACCIONES 


As el mayor valor propio y su vector propio asociado de 


la matriz: 


( .31622783 


23 
40 


-20 


SOLUCION: 


-4 
=) 
a 


= 6 


16 
32 
-13 


NUMERO DE FILAS O COLUMNAS DE 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 


FILA 

ELEMENTO 
ELEMENTO 
ELEMENTO 


F T.L.A 
ELEMENTO 
ELEMENTO 
ELEMENTO 


DE 
DE 
DE 


DE 
DE 
DE 


DE 
DE 
DE 


1 
LA 


LA 
LA 


FILA 
FILA 
FILA 


FILA 
FILA 
FILA 


FILA 
FILA 
FILA 


INTRODUZCA EL NIVEL 


MAYOR VALOR PROPIO = 3 
VECTOR PROPIO 


NUMERO DE ITERACCIONES 


e el mayor valor propio y su vector asociado de 


la matriz: 


Ny 


3 
3 


DE EXACTITUD DESEADO 
INTRODUZCA EL NUMERO MAXIMO DE ITERACCIONES 


COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


COLUMNA 
COLUMNA 
COLUMNA 


( .43967877 


SOLUCION: 


= 18 


1 


N GU PR nn 


a] 


. 74868328 


Ud N 
y 
' 
bh 


UN - 
Y 
) 
ul 


1 7-20 
2?4 
3 ?-13 


. 33050435 


3 4 
2 -4 
-3 5 
-3 - 


) 


E 
mM 


=29 


=? 


. 00001 
15 


N =? 3 
E =? 1E-07 
Mm =? 20 
-=. 34197238  ) 
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NUMERO DE FILAS O COLUMNAS DE LA MATRIZ A(N,N), N =? 4 


PT. LA 1 

ELEMENTO DE LA FILA 1 COLUMNA 1 ? 2 
ELEMENTO DE LA FILA 1 COLUMNA 2 ?-1 
ELEMENTO DE LA FILA 1 COLUMNA 3 ? 3 
ELEMENTO DE LA FILA 1 COLUMNA 4 ? 4 
FILA 2 

ELEMENTO DE LA FILA 2 COLUMNA 1 ? 1 
ELEMENTO DE LA FILA 2 COLUMNA 2 ? O 
ELEMENTO DE LA FILA 2 COLUMNA 3 ? 2 
ELEMENTO DE LA FILA 2 COLUMNA 4 ?-4 
FILA 3 

ELEMENTO DE LA FILA 3 COLUMNA 1 ? 3 
ELEMENTO DE LA FILA 3 COLUMNA 2 ? 1 
ELEMENTO DE LA FILA 3 COLUMNA 3 ?-3 
ELEMENTO DE LA FILA 3 COLUMNA 4 ? 5 
FILA 4 

ELEMENTO DE LA FILA 4 COLUMNA 1 ? 2 
ELEMENTO DE LA FILA 4 COLUMNA 2 ? 7? 
ELEMENTO DE LA FILA 4 COLUMNA 3 ?-3 
ELEMENTO DE LA FILA 4 COLUMNA 4 ? 4 
INTRODUZCA EL NIVEL DE EXACTITUD DESEADO =? 1E-07? 


INTRODUZCA EL NUMERO MAXIMO DE ITERACCIONES M =? 30 


MAYOR VALOR PROPIO = 7.7107636 


VECTOR PROPIO = ( .46028256  -.06373272 .47199136 .74920108  ) 


NUMERO DE ITERACCIONES = 30 


LO 
DS 


(tos 


AREAS DE TRIANGULOS Y CUADRILATEROS 


introducción: 


de 


Este sencillo programa sirve para calcular las áreas elementales 


triángulos, cuadrados , rectángulos, rombos y trapecios, conocidas sus 


bases y alturas, o bien sus diagonales en el caso del rombo, o las bases 


y la altura en el caso del trapecio. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

80 

100 
110 
120 
130 
140 
150 
1650 
170 
1820 
190 
200 
210 
219 
220 
230 
240 
250 
z60 
270 
280 
290 
300 
310 
320 
330 


REM IRRRRRORRRRORNRORORODRORRORDEAROORDOARDORDAORARARO RODADO AIR RARA 
REM 


REM AREAS ELEMENTALES 

REM 

REM DE TRIANGULOS Y CUADRILATEROS 

REM 

REM RRRRRRRRODRORRRRRRORORARRRRORORAORORORRROREODORAORDEARDORDORDOOOOEOOOCOIAIIONAAR AAA 


PRINT 

PRINT "ESTE PROGRAMA CALCULA AREAS DE TRIANGULOS Y CUADRILATEROS" 
PRINT 

PRINT "1.- AREA DEL TRIANGULO” 

PRINT "2.- AREA DEL CUADRADO” 

PRINT "3.- AREA DEL RECTANGULO” 

PRINT "4.- AREA DEL ROMBO" 

PRINT "S.- AREA DEL TRAPECIO” 

PRINT 

PRINT "SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE"; 
INPUT R 

ON R GOTO 220,280,320,380,440 

REM - BORRAR PANTALLA - 

PRINT "INTRODUZCA LA ALTURA DEL TRIANGULO H =";5 
INPUT H 

PRINT "INTRODUZCA LA BASE DEL TRIANGULO B="; 
INPUT B 

S=HXB/2 

GOTO 510 

PRINT "INTRODUZCA EL LADO DEL CUADRADO L =";5 
INPUT L 

S=L%*L 

GOTO 510 

PRINT "INTRODUZCA LA BASE DEL RECTANGULO B="; 
INPUT B 
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340 PRINT "INTRODUZCA LA ALTURA DEL RECTANGULO H ="; 
350 INPUT H 

360 'S=BXH 

370 GOTO S510 

380 PRINT "INTRODUZCA UNA DE LAS DIAGONALES Di ="; 
390 INPUT Di 

400 PRINT "INTRODUZCA OTRA DE LAS DIAGONALES D2 ="; 
410 INPUT D2 

420 S=D1XD2/2 

430 GOTO 510 

440 PRINT "INTRODUZCA UNA BASE DEL TRAPECIO Bi ="; 
450 INPUT Bi 

460 PRINT "INTRODUZCA OTRA BASE DEL TRAPECIO B2 ="; 
470 INPUT B2 

480 PRINT "INTRODUZCA LA ALTURA DEL TRAPECIO H ="3 
490 INPUT H 

500 S=(B1+B2)XH/2 

509 REM - SALIDA DE RESULTADOS - 

510 PRINT 

520 PRINT "EL AREA PEDIDA ES ="3S;j "UNIDADES CUADRADAS” 
530 END 


ejercicios resueltos: 


Neonatal el área de un rectángulo que tiene 8 m de base y 5 m de al 
tura. 
SOLUCION: 


ESTE PROGRAMA CALCULA AREAS DE TRIANGULOS Y CUADRILATEROS» 


el 
1.- AREA DEL TRIANGULO 
2.- AREA DEL CUADRADO 5 
3.- AREA DEL RECTANGULO 
49.- AREA DEL ROMBO 8 
5S.- AREA DEL TRAPECIO A B 


SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE? 3 
INTRODUZCA LA BASE DEL RECTANGULO B=? 8 
INTRODUZCA LA ALTURA DEL RECTANGULO H =? 5 


EL AREA PEDIDA ES = 40 UNIDADZS CUADRADAS 


Dit el área de un trapecio de bases 3 y 9 dm. y 4.5 dm de al 
tura. 
SOLUCION: 


SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE? 5 
INTRODUZCA UNA BASE DEL TRAPECIO B1 =2 3 

INTRODUZCA OTRA BASE DEL TRAPECIO B2 =? 9 

INTRODUZCA LA ALTURA DEL TRAPECIO H =? 4.5 


EL AREA PEDIDA ES = 27 UNIDADES CUADRADAS 


LONGITUDES Y AREAS EN LA CIRCUNFERENCIA 


. ., 
introducción: 
Este programa permite calcular las siguientes longitudes y áreas. 
1.- Longitud de una circunferencia 
2.- Longitud de un arco de circunferencia 
3.- Area del círculo 
4.- Area del sector circular 
5.- Area del segmento circular 
6.- Area de la corona circular 
7.- Area del trapecio circular 


Para el caso del sector, segmento y trapecio circular el ángulo 
se introduce en radianes, si se quisiera introducir en grados, minutos 
y segundos se pasarían estas unidades a radianes. (Ver programa titula 


do, conversión de ángulos). 


listado del programa: 


10 REM RRRRRARRRORORAORRRROORRRORDARORORARRORDAORDERDORDOREEOIO OOOO III 
20 REM 


30 REM LONGITUDES Y AREAS EN 

40 REM 

50 REM CIRCUNFERENCIAS Y CIRCULOS 
60 REM 


70 REM IRRRRRRRROROARORARARAOARARORDOADEARDEOREODORAREDODOREEOO III III IIA 
100 PRINT 

110 PRINT "ESTE PROGRAMA CALCULA LAS SIGUIENTES LONGITUDES Y AREAS :” 
120 PRINT 

130 PRINT "1.- LONGITUD DE LA CIRCUNFERENCIA" 

140 PRINT ”*2.- LONGITUD DE UN ARCO DE CIRCUNFERENCIA" 

150 PRINT "3.- AREA DEL CIRCULO" 

160 PRINT "4.- AREA DEL SECTOR CIRCULAR” 

170 PRINT "5.- AREA DEL SEGMENTO CIRCULAR” 

180 PRINT "6.- AREA DE LA CORONA CIRCULAR" 

190 PRINT "7.- AREA DEL TRAPECIO CIRCULAR" 

200 PRINT:PRINT 

210 PRINT "SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE”; 
220 INPUT C 


229 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
430 
490 
500 
510 
520 
530 
590 
550 
560 
570 
5380 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
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REM - BORRAR PANTALLA - 

PRINT 

PRINT "INTRODUZCA EL RADIO DE LA CIRCUNFERENCIA R =";5 
INPUT R 

PI=3.141592654 


U$="UNIDADES CUADRADAS” :UL$="UNIDADES LINEALES” 

PRINT ] 

ON C GOTO 300,330,390,420,480,540,600 

L=2%X*P IXR 

PRINT "LA LONGITUD DE LA CIRCUNFERENCIA ES = "3L;5UL$S 

GOTO 200 

PRINT "INTRODUZCA LA MEDIDA DEL ANGULO EN RADIANES A ="; 
INPUT A 

PRINT 

L=AXR 

PRINT "LA LONGITUD DE UN ARCO DE"3A;”RADIANES ES ="3L;5ULS 


GOTO 200 

S=PIXRXR 

PRINT "EL AREA DEL CIRCULO DE RADIO"3R;"ES ="3S;U$ 
GOTO200 

PRINT "INTRODUZCA LA MEDIDA DEL ANGULO EN RADIANES A =" 


INPUT A 

PRINT 

S=AXRAR/2 

PRINT "EL AREA DEL SECTOR CIRCULAR DE”;3A;"RADIANES ES ="35S;U$ 


GOTO 200 
PRINT "INTRODUZCA LA MEDIDA DEL ANGULO EN RADIANES A ="%; 


INPUT A 

S=RXARX(A-SIN(A))/2 

PRINT 

PRINT "EL AREA DEL SEGMENTO CIRCULAR DE”5A;"RADIANES ES ="3535;3U$ 
GOTO 200 

PRINT "INTRODUZCA EL RADIO MENOR DE LA CORONA CIRCULAR R2 =";5 


INPUT R2 
S=PIXA(RAR-R2ZXRZ2) 


PRINT . 

PRINT "EL AREA DE LA CORONA CIRCULAR ES ="33;U$ 

GOTO 200 

PRINT "INTRODUZCA EL RADIO MENOR DEL TRAPECIO CIRCULAR R2 ="; 
INPUT R2 

PRINT 


PRINT "INTRODUZCA LA MEDIDA DEL ANGULO EN RADIANES A ="; 
INPUT A 
S=A%XA (RAR-R2XR2) /2 


PRINT 

PRINT "EL AREA DEL TRAPECIO CIRCULAR ES ="35;U$8 
GOTO 200 

END 


ejercicios resueltos: 


Liria la medida del arco de circunferencia que tiene un 


de 12m. y un ángulo de r radianes. 
SOLUCION: 


ESTE PROGRAMA CALCULA LAS SIGUIENTES LONGITUDES Y AREAS : 


LONGITUD DE LA CIRCUNFERENCIA 
LONGITUD DE UN ARCO DE CIRCUNFERENCIA 
AREA DEL CIRCULO 

AREA DEL SECTOR CIRCULAR 
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5.- AREA DEL SEGMENTO CIRCULAR 
6.- AREA DE LA CORONA CIRCULAR 
?7.- AREA DEL TRAPECIO CIRCULAR 


SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE? 2 

INTRODUZCA EL RADIO DE LA CIRCUNFERENCIA R =? 12 

INTRODUZCA LA MEDIDA DEL ANGULO EN RADIANES A =? 3.14159 

LA LONGITUD DE UN ARCO DE 3.14159 RADIANES ES = 37.69908 UNIDADES LINEALES 
Ze Hallar el área de un sector circular de radio 7.5 cms y que abar 


ca un ángulo de 1 radian. 
SOLUCION: 
A 


INTRODUZCA EL RADIO DE LA CIRCUNFERENCIA R =?2 ?.5 
INTRODUZCA LA MEDIDA DEL ANGULO EN RADIANES A =? 1 


EL AREA DEL SECTOR CIRCULAR DE 1 RADIANES ES = 28.125 UNIDADES CUADRADAS 


3. Hallar el área de una corona circular cuyo radio mayor mide 6 m. 
y el radio menor 2.5 m. 
SOLUCION :: 


SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE? 6 
INTRODUZCA EL RADIO DE LA CIRCUNFERENCIA R =? ó 
INTRODUZCA EL RADIO MENOR DE LA CORONA CIRCULAR R2 =7? 2.5 


EL AREA DE LA CORONA CIRCULAR ES = 93.462381 UNIDADES CUADRADAS 


4. Hallar el área de un trapecio circular de radio 7 y 5 metros y de 
1 radian de amplitud. 
SOLUCION: 
SEGUN LA OPCION QUE DESEE FULSE EL NUMERO QUE LE PRECEDE? >? 
INTRODUZCA EL RADIO DE LA CIRCUNFERENCIA R =? >? 
INTRODUZCA EL RADIO MENGR DE LA TRAPECIO CIRCULAR R2 =? 5 


INTRODUZCA LA MEDIDA DEL ANGULO EN RADIANES A =? 1 


EL AREA DEL TRAPECIO CIRCULAR ES = 12 UNIDADES CUADRADAS 


2 - E A y . 
circulo sector clirc. segmento circ. corona circul. trapecio circ. 


RELACIONES METRICAS EN EL TRIANGULO 


introducción: 


Este interesante programa permite calcular las mas importantes 


relaciones métricas en un triángulo. 


A partir de los lados del triángulo, el programa nos permite ob 


tener las tres alturas, las tres medianas,las tres bisectrices interio 


res, las tres bisectrices exteriores, el radio de las circunferencias 


inscritas, circunscritas, exinscritas y el área del triángulo. 


En caso de que, por error, las longitudes de los lados no formen 


un triángulo, el programa imprime un mensaje en este sentido. 
Si se desea se pueden añadir instrucciones para redondear los re 
sultados. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
1340 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
249 
250 


REM IRRADIA 
REM 


REM RELACIONES METRICAS 

REM 

REM EN EL TRIANGULO 

REM 

REM RRRRRRRRORRODORDORORRRORROARRARRRRRRRRORRAREAREARDARARRORRRORRORARRDORAORROOREOREARRR 


PRINT 

PRINT "INTRODUZCA LOS LADOS DEL TRIANGULO” 
PRINT 

PRINT "LADO a="; 

INPUT A 

PRINT "LADO b ="; 

INPUT B 

PRINT "LADO ec =" 

INPUT C 

PRINT 

PRINT 

P=(A+B+C)/2 
D=PX(P-A)X(P-B)X(P-C) 

IF D<=0 THEN GOTO 860 

S=SQR (D) 

REM - CALCULO DE LAS ALTURAS - 
HA=2XS/A 
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260 HB=2*S/B 

270 HC=2*S/C 

280 PRINT "ALTURAS DEL TRIANGULO” 

290 PRINT 

300 PRINT "CORRESPONDIENTE AL LADO a, Ha =";HA 

310 PRINT "CORRESPONDIENTE AL LADO b. Hb =";HB 

320 PRINT "CORRESPONDIENTE AL LADO c,  Hc ="3HC 

330 PRINT 

340 PRINT 

349 REM - CALCULO DE LAS MEDIANAS - 

350 MA=SOR((B"2+C0"2)/2 -(472)/4) 

360 MB=SQR((A72+C?*2)/2 -(B*2)/4) 

370 MC=SQOR ( (A? 2+E*2)/2 -(C*2)/49) 

3280 PRINT "MEDIANAS DEL TRIANGULO" 

390 PRINT 

400 PRINT "CORRESPONDIENTE AL LADO a, Ma 2 MA 

410 PRINT "CORRESPONDIENTE AL LADO b, Mb =";MB 

420 PRINT "CORRESPONDIENTE AL LADO c, Mc ="3MC 

330 PRINT 

440 PRINT 

439 REM - CALCULO DE LAS BISECTRICES INTERIORES - 

450 VA=SOR (BXCXAPX(P-A))X2/ (B+C) 

460 VBE=SGR(AXCXPXA(P-B))X2/ (A+C) 

470 VC=SQR(AXBXAPX(P-C))X2/(A+B) 

480 PRINT "BISECTRICES INTERIORES DEL TRIANGULO" 

490 PRINT 

500 PRINT "BISECTRIZ INTERIOR DEL ANGULO A, Va =";VA 

510 PRINT "BISECTRIZ INTERIOR DEL ANGULO Bi, Vb =";UB 

520 PRINT "BISECTRIZ INTERIOR DEL ANGULO C, Ve ="3vcC 

530 PRINT 

590 PRINT 

550 IF A=B AND B=C THEN GOTO 650 

559 REM - CALCULO DE LAS BISECTRICES EXTERIORES - 

560 WA=SQR (BXCXA(P-B)X(P-C))X2/1(C-B) 

570 WB=SQGR (AXCX (P-A)X(P-C))X2/1(C-A) 

580 WC=SQR (AXBX(P-A)X(P-E))X%2/(A-B) 

590 PRINT "BISECTRICES EXTERIORES DEL TRIANGULO" 

600 PRINT 

$610 PRINT "BISECTRIZ EXTERIOR DEL ANGULO A, Wa =";WA 

ó20 PRINT "BISECTRIZ EXTERIOR DEL ANGULO Bi, WbD =";WB 

630 PRINT "BISECTRIZ EXTERIOR DEL ANGULO C., Wc =";WwC 

640 GOTO 660 

650 PRINT "TRIANGULO EQUILATERO: LAS BISECTRICES EXTERIORES SON INFINITAS" 
660 PRINT 

670 PRINT 

679 REM - CALCULO DEL RADIO DE LA CIRCUNFERENCIA INSCRITA - 
680 RI=S/P 

690 PRINT "EL RADIO DE LA CIRCUNFERENCIA INSCRITA ES Ri ="j,RI 
700 PRINT 

710 PRINT 

719 REM - CALCULO DEL RADIO DE LA CIRCUNFERENCIA CIRCUNSCRITA - 
720 RCO=AXBXC/ (4%S) 

730 PRINT "EL RADIO DE LA CIRCUNFERENCIA CIRCUNSCRITA ES Re =";RC 
740 PRINT 

750 PRINT 

759 REM - CALCULO DE LOS RADIOS DE LAS CIRCUNFERENCIAS EXINSCRITAS - 
760 EA=SQOR (PX(P-B)X(P-C)/(P-A)) 

770 EB=SQR(PXIP-A)X(P-C)/(P-B)) 


780 
790 
800 
s10 
820 


EC=SOR (PX(P-A)X(P-B)/(P-C)) 

PRINT "EL RADIO DE LA CIRC. EXINSCRITA CORRESP. AL LADO a ES Ea =";EA 
PRINT "EL RADIO DE LA CIRC. EXINSCRITA CORRESP. AL LADO b ES Eb =";EB 
PRINT "EL RADIO DE LA CIRC. EXINSCRITA CORRESP. AL LADO c ES. Ec =";EC 
PRINT 
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830 PRINT 

240 PRINT "EL AREA DEL TRIANGULO ES S ="3S5 "UNIDADES CUADRADAS” 
850 GOTO 870 

860 PRINT "LOS LADOS INTRODUCIDOS NO DETERMINAN UN TRIANGULO” 

870 END 


ejercicios resueltos: 


1. Dado un triángulo de lados a = 7; b= 8; Cc = 9 metros. Hallar, 
las alturas, las medianas, las bisectrices interiores, las bisectrices 
exteriores, el radio de la circunferencia circunscrita,el radio de la 


circunferencia inscrita, los radios de las circunferencias exinscritas, 
el área del triángulo. 
SOLUCION: á 


INTRODUZCA LOS LADOS DEL TRIANGULO 


LADO a =? 7? 
LADO b =? 2 
LADO ce =2 9 


ALTURAS DEL TRIANGULO 


CORRESPONDIENTE AL LADO a, Ha = 7.6665188 
CORRESPONDIENTE AL LADO b, Hb 6.7082039 
CORRESPONDIENTE AL LADO c, He = 5.9628479 


MEDTANAS DEL TRIANGULO 


CORRESPONDIENTE AL LADO a, Ma = 7.7620873 
CORRESPONDIENTE AL LADO b, Mb ? 
CORRESPONDIENTE AL LADO ca, Mc = 6.0207973 


BISECTRICES INTERIORES DEL TRIANGULO 


BISECTRIZ INTERIOR DEL ANGULO A, Va = 7.7325538 


BISECTRIZ INTERIOR DEL ANGULO B, Vb = 6.8738635 

BISECTRIZ INTERIOR DEL ANGULO C, Vc = 5.9866518 
BISECTRICES EXTERIORES DEL TRIANGULO 

BISECTRIZ EXTERIOR DEL ANGULO A, Wa = 58.787754 

BISECTRIZ EXTERIOR DEL ANGULO B, Wb = 30.740852 

BISECTRIZ EXTERIOR DEL ANGULO C, We =-66.932802 

EL RADIO DE LA CIRCUNFERENCIA INSCRITA ES Ri = 2.236068 


EL RADIO DE LA CIRCUNFERENCIA CIRCUNSCRITA ES Rc = 4.6957428 


EL RADIO DE LA CIRC. EXINSCRITA CORRESP. AL LADO a ES Ea = 5.3665631 
EL RADIO DE LA CIRC. EXINSCRITA CORRESP. AL LADO b ES Eb = ó6.7082039 
EL RADIO DE LA CIRC. EXINSCRITA CORRESP. AL LADO c ES Ec = 8.9442719 
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EL AREA DEL TRIANGULO ES S = 26.832816 UNIDADES CUADRADAS 


2. Dado un triángulo de lados a 
Hallar las alturas, 


bisectrices exteriores 


, el radio de la circunferencia circunscrita, 


radio de la circunferencia inscrita, 


exinscritas y el área del triángulo. 


SOLUCION: 


INTRODUZCA LOS LADOS DE 


LADO a =7? 65 
LADO b =? 43 
LADO ce =? 28 


ALTURAS DEL TRIANGULO 
CORRESPONDIENTE AL LADO 
CORRESPONDIENTE AL LADO 
CORRESPONDIENTE AL LADO 
MEDIANAS DEL TRIANGULO 
CORRESPONDIENTE AL LADO 
CORRESPONDIENTE AL LADO 
CORRESPONDIENTE AL LADO 
BISECTRICES INTERIORES 
BISECTRIZ INTERIOR DEL 
BISECTRIZ INTERIOR DEL 
BISECTRIZ INTERIOR DEL 
BISECTRICES EXTERIORES 
BISECTRIZ EXTERIOR DEL 


BISECTRIZ EXTERIOR DEL 
BISECTRIZ EXTERIOR DEL 


EL RADIO DE LA CIRCUNFE 


EL RADIO DE LA CIRCUNFE 


L TRIANGULO 


= 65 cms, 


las medianas, 


los radios de las circunferencias 


a, Ha = 13.2897341 
b, Hb = 21.007609 
Es Hc = 32.261685 
a, Ma = 16.13226é6 
b, Mb = 45.19126 

Ca Mc = 53.301032 


DEL TRIANGULO 


ANGULO A, Va 
ANGULO B, Vb 
ANGULO C, Ve 


DEL TRIANGULO 


ANGULO A, Wa 


ANGULO B,  Wb 
ANGULO C. We 


RENCIA INSCRITA 


13 
37 
51 


-14 
-25 
41 


ES 


.960468 
.3827462 
. 060093 


6.30258 
. 261236 
.622566 


RENCIA CIRCUNSCRITA ES Re 


EL RADIO DE LA CIRC. EXINSCRITA CORRESP. 
EL RADIO DE LA CIRC. EXINSCRITA CORRESP. 
EL RADIO DE LA CIRC. EXINSCRITA CORRESP. 


EL AREA DEL TRIANGULO ES 


AL LADO 
AL LADO 
AL LADO 


S = 451.66359 UNIDADES 


= 6.6421116 


= 43.317638 


a ES Ea = 


b ES Eb 
c ES Ec 


CUADRADAS 


b = 43 cms y Cc = 28 cms. 


las bisectrices interiores, las 


150.55453 
18.066544 
11.29159 


POLIGONOS REGULARES: ANGULOS Y DIAGONALES 


introducción: 


Este programa permite calcular el valor en grados, minutos y se- 
gundos de Cada ángulo interior y exterior de un polígono regular de n 
lados, así como la suma de los ángulos interiores y exteriores. También 
se Obtiene el número de diagonales del polígono. 

Para la ejecución del programa unicamente es necesario introducir 


el número de lados del polígono regular. 


listado del programa: 


10 REM IRRADIA 
20 REM 


30 REM POLIGONOS REGULARES 

40 REM 

50 REM ANGULOS INTERIORES LS EXTERIORES 
60 REM 

70 REM NUMERO DE DIAGONALES 

80 REM 


90 REM IRRADIA 
100 PRINT 

110 PRINT "INTRODUZCA EL NUMERO DE LADOS DEL POLIGONO REGULAR N ="; 

120 INPUT N 

130 PRINT 

140 PRINT 

150 PRINT "PARA EL POLIGONO DE "3N;"LADOS, SE TIENE QUE :” 

160 PRINT 

170 PRINT "LA SUMA DE LOS ANGULOS INTERIORES ES ="3180X (N-2)5 "GRADOS” 

180 AI=2X (N-2)%X90/N 

190 Z=AI 

200 GOSUB 349 

210 PRINT 

220 PRINT "CADA ANGULO INTERIOR MIDE"3G5"GRADOS"*;M;"MINUTOS*3;SS; "SEGUNDOS" 
230 PRINT 

240 PRINT "LA SUMA DE LOS ANGULOS EXTERIORES ES = 360 GRADOS" 

250 PRINT 

260 AE=360/N 

270 Z=AE 

280 GOSUB 349 

290 PRINT "CADA ANGULO EXTERIOR MIDE”;56G5"GRADOS”3M;5"MINUTOS”*3SS5 "SEGUNDOS” 
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300 PRINT 

310 D=NX*X(N-3)/2 

320 PRINT "EL POLIGONO REGULAR DADO TIENE "3D;"DIAGONALES” 
340 PRINT 

349 REM - SUBRUTINA PARA PASAR A GRADOS MINUTOS Y SEGUNDOS - 
350 G=INT (Z) 

360 M=INT((Z-G)X60) 

370 SS=INT (((Z-G)X60-M)X60) 

380 RETURN 

390 END 


ejercicios resueltos: 


lonariar la suma de los ángulos interiores y exteriores, el valor 
de cada ángulo interior y exterior y el número de diagonales de un, polí 
gono regular de 15 lados. 
SOLUCION :: 


INTRODUZCA EL NUMERO DE LADOS DEL POLIGONO REGULAR N =? 15 


PARA EL POLIGONO DE 15 LADOS, SE TIENE QUE : 


LA SUMA DE LOS ANGULOS INTERIORES ES 


2340 GRADOS 
CADA ANGULO INTERIOR MIDE 156 GRADOS O MINUTOS O SEGUNDOS 


LA SUMA DE LOS ANGULOS EXTERIORES ES 


3ó0 GRADOS 
CADA ANGULO EXTERIOR MIDE 24 GRADOS O MINUTOS O SEGUNDOS 


EL POLIGONO REGULAR DADO TIENE 290 DIAGONALES 


2. Hallar la suma de los ángulos interiores y exteriores, el valor 
de cada ángulo interior y exterior y el número de diagonales de un polí 
gono regular de 7 lados. 

SOLUCION: 


INTRODUZCA EL NUMERO DE LADOS DEL POLIGONO REGULAR N =2 7 


PARA EL POLIGONO DE 7 LADOS, SE TIENE QUE : 

LA SUMA DE LOS ANGULOS INTERIORES ES = 200 GRADOS 

CADA ANGULO INTERIOR MIDE 128 GRADOS 34 MINUTOS 17 SEGUNDOS 
LA SUMA DE LOS ANGULOS EXTERIORES ES = 360 GRADOS 

CADA ANGULO EXTERIOR MIDE Si GRADOS 25 MINUTOS 42 SEGUNDOS 


EL POLIGONO REGULAR DADO TIENE 14 DIAGONALES 


POLIGONOS REGULARES: AREA EN FUNCION DEL 
LADO 


introducción: 


Este breve programa permite calcular el área de un polígono regu 
lar convexo, en función de su lado. 
Para su ejecución es necesario saber de que polígono regular con 


vexo se trata (número de lados) asf como el valor del lado. 


listado del programa: 


10 REM IRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRORRRORRRORRRORRAROAREARDEOS 
20 REM 


30 REM AREAS DE POLIGONOS REGULARES 

40 REM 

50 REM CONVEXOS EN FUNCION DEL LADO 

60 REM 

70 REM IRRSRRRRRRRRRRRRRRRRRRRR22020090000900220902002092020200982900909002900900900N0N000000A 
100 PRINT 


110 PRINT "INTRODUZCA EL NUMERO DE LADOS DEL POLIGONO REGULAR CONVEXO N ="5 
120 INPUT N 

130 IF N<3 THEN GOTO 310 

1340 PRINT 

150 PRINT "INTRODUZCA EL VALOR DEL LADO DEL POLIGONO REGULAR CONVEXO L ="; 
160 INPUT L 

170 PRINT 

180 PRINT 

190 Pl= 3.141592654 

200 U$="UNIDADES CUADRADAS" 

210 S=NXLXL/(IXTAN(PI/N)) 

220 PRINT "EL AREA DEL POLIGONO REGULAR CONVEXO DE”";¿N;"LADOS (L="3L3") ES=";3SjUs$ 
230 PRINT 

240 PRINT 

250 PRINT 

260 PRINT "DESEA CALCULAR EL AREA DE OTRO POLIGONO (S/N)*";5 

270 INPUT Cs$ 

280 IF C$="N" THEN GOTO 320 

290 PRINT 

300 GOTO 100 

310 PRINT "IMPOSIBLE, NO HAY NINGUN POLIGONO REGULAR DE"3N5"LADOS” 

320 END 
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ejercicios resueltos: 


1. Hallar el área de un polígono regular convexo de 12 lados, sabien 
do que el lado mide 5 unidades. 
SOLUCION: 


INTRODUZCA EL NUMERO DE LADOS DEL POLIGONO REGULAR CONVEXO N =? 12 
INTRODUZCA EL VALOR DEL LADO DEL POLIGONO REGULAR CONVEXO L =? 5 


EL AREA DEL POLIGONO REGULAR CONVEXO DE 12 LADOS (L= 5 ) ES= 279.90381 UNIDADES 
CUADRADAS 


Zi Hallar el área de un polígono regular convexo de 20 lados, sabien 
do que el lado mide 7 unidades. 
SOLUCION: 


INTRODUZCA EL NUMERO DE LADOS DEL POLIGONO REGULAR CONVEXO N =7? 20 
INTRODUZCA EL VALOR DEL LADO DEL POLIGONO REGULAR CONVEXO L =? 2 


EL AREA DEL POLIGONO REGULAR CONVEXO DE 20 LADOS (L= 7? ) ES= 1546.8691 UNIDADES 
CUADRADAS 


3. Calcular el área de un polígono regular convexo de 16 lados sabien 
do que el lado mide 4 unidades. 
SOLUCION: 
INTRODUZCA EL NUMERO DE LADOS DEL POLIGONO REGULAR CONVEXO N =7? 16 
INTRODUZCA EL VALOR DEL LADO DEL POLIGONO REGULAR CONVEXO L =7 4 


EL AREA DEL POLIGONO REGULAR CONVEXO DE 16 LADOS (L= 4 ) ES= 321.74973 UNIDADES 
CUADRADAS 


POLIGONOS REGULARES: AREA EN FUNCION 


introducción: 


DEL R. CIRCUNSCRITA 


Este programa permite calcular el área de los polígonos regulares 


convexos siguientes: triángulo equilátero, cuadrado, pentágono, exágono 


octógono y decágono en función del radio de la circunferencia circunscri 


ta al polígono. 


listado del programa: 


REM RRA 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


ARE 


E 


LA 


AS 


N 


Cc I 


DE POLITIGONOS REGULARES 
FUNCION DEL RADIO DE 
RCUNFERENCIA CIRCUNSCRITA 


REM RRA 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 


"ESTE PROGRAMA CALCULA EL AREA DE LOS SIGUIENTES POLIGONOS REGULARES" 
"EN FUNCION DEL RADIO DE LA CIRCUNFERENCIA CIRCUNSCRITA” 


"1.- AREA 
"2.- AREA 
"3.- AREA 
"4.- AREA 
.2 AREA 
AREA 


o 
i 


" INTRODUZC 
c 


DEL 
DEL 
DEL 
DEL 
DEL 
DEL 


A EL 


TRIANGULO EQUILATERO” 
CUADRADO" 

PENTAGONO REGULAR" 
EXAGONO REGULAR” 
OCTOGONO REGULAR” 
DECAGONO REGULAR" 


NUMERO QUE PRECEDE DEL AREA QUE DESEA HALLAR”; 


"INTRODUZCA EL RADIO DE LA CIRCUNFERENCIA CIRCUNSCRITA R =";5 


R 


ON C GOTO  280,300,320,340,360,380 
A=5. 1961524X(R"2)/4 
GOTO 400 


A=2XAR" 


2 


GOTO 400 
A=SOR (10-2%SQR (5) )(SQR(S)+1)X5%*(RP"2)/16 
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AH KK KK 


330 GOTO 400 

34C A=5.1961524X*1R”"2)/2 

350 GOTO 400 

360 A=2.828427125*R"”2 

370 GOTO 400 

380 A=5*(SOR (5) -1)XSQR (10+2%SQOR (5) )(R?2)/8 
390 GOTO 400 

400 PRINT 

910 FRINT 

420 PRINT "EL AREA PEDIDA ES "jA;"UNIDADES CUADRADAS” 
430 END 


ejercicios resueltos: 


Losatias el área de un pentágono regular, cuyo radio de la circunfe 
rencia circunscrita mide 12 metros. 
SOLUCION: 


INTRODUZCA EL RADIO DE LA CIRCUNFERENCIA CIRCUNSCRITA R =? 12 


EL AREA PEDIDA ES 342.38035 UNIDADES CUADRADAS 


iii el área de un octógono regular, cuyo radio de la circunfe- 
rencia circunscrita mide 7.28 metros. 
SOLUCION: 


INTRODUZCA EL NUMERO QUE PRECEDE DEL AREA QUE DESEA HALLAR? 5 


INTRODUZCA EL RADIO DE LA CIRCUNFERENCIA CIRCUNSCRITA R =7 7.28 


EL AREA PEDIDA ES  '149.90211 UNIDADES CUADRADAS 


3. Hallar el área de un decágono regular, cuyo radio de la circunfe- 
rencia circunscrita mide 15.84 metros. 
SOLUCION: 


INTRODUZCA EL RADIO DE LA CIRCUNFERENCIA CIRCUNSCRITA R =”? 15.34 


EL AREA PEDIDA ES 737.39306 UNIDADES CUADRADAS 


AREAS Y VOLUMENES DE LOS POLIEDROS 
REGULARES 


introducción: 


Este programa sirve para estudiar los poliedros regulares conve 
xXOS. 

Para su ejecución es preciso introducir el valor de la arista y 
el programa proporciona el número de caras, vertices y aristas del polie 


dro (teorema de Euler) así como el área y volúmen de dicho poliedro. 


listado del programa: 


10 REM IRRRRRRORORORORRRRRRRRRRR0902202202099009002009090900090090N0900OOOOIOI AA 
20 REM 

30 REM AREAS Y VOLUMENES 

90 REM 

50 REM DE LoS 

60 REM 

70 REM POL IEDROS REGULARES 

280 REM 

90 REM IRRRRRRRRORRRRRIRRIRRIRRRRRRR 90 25099090090909909009090909000900900ROOOOO 
100 PRINT 

110 PRINT "LOS POLIEDROS REGULARES CONVEXOS SON :” 

120 PRINT 

130 PRINT "1.- TETRAEDRO” | 

140 PRINT "2.- CUBO O EXAEDRO" 

150 PRINT "3.- OCTAEDRO” 

140 PRINT "4.- DODECAEDRO” 

170 PRINT "S.- ICOSADRO"” 

180 PRINT 

190 PRINT "ESCRIBA EL NUMERO QUE PRECEDE AL POLIEDRO QUE QUIERA ESTUDIAR"; 
200 INPUT R 

210 REM - BORRAR PANTALLA - 

220 PRINT 

230 PRINT "INTRODUZCA EL VALOR DE LA ARISTA L ="; 

240 INPUT L 

250 PRINT 

260 ON R GOTO. 270,330,390,450,510 

270 PRINT "EL TETRAEDRO REGULAR TIENE :" 

280 PRINT 

290 PRINT "4 CARAS (TRIANGULOS EQUILATEROS), 4 VERTICES Y 6 ARISTAS” 
300 S=SOR(3)X(L72) 

310 V=S0R(2)X(L”"3)/12 
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320 GOTO 569 

330 PRINT "EL EXAEDRO O CUBO REGULAR TIENE :" 

340 PRINT 

350 PRINT "ó CARAS (CUADRADOS), 8 VERTICES Y 12 ARISTAS" 

360 S=6*X(L”2) 

370 V=L*3 

380 GOTO 569 

390 PRINT "EL OCTAEDRO REGULAR TIENE :” 

400 PRINT 

410 PRINT "8 CARAS (TRIANGULOS EQUILATEROS), á VERTICES Y 12 ARISTAS" 
420 S=2%*SOR(3)*(L 2) 

430 VU=SQR (2)X(L?*3)/3 

440 GOTO 569 

450 PRINT "EL DODECAEDRO REGULAR TIENE :” 

460 PRINT 

470 PRINT "12 CARAS (PENTAGONOS REGULARES), 20 VERTICES Y 30 ARISTAS" 
480 S=3%SOR (25+ 10X*SQR (5) )X (12) 

490 U=5%SQOR (47+21%SQR(5))X(L"73)/(2X*SQR(1O) ) 

500 GOTO 569 

510 PRINT "EL ICOSAEDRO REGULAR TIENE :” 

520 PRINT 

530 PRINT "20 CARAS (TRIANGULOS EQUILATEROS), 12 VERTICES Y 30 ARISTAS" 
5490 S=5XSOR (3)Xx (12) 

550 V=5%X(3F+SQRI(S)IXA(L03)/12 

360 GOTO 569 

569 REM - SALIDA DE RESULTADOS 


570 PRINT 

580 PRINT "EL AREA DEL POLIEDRO ES ="3S; "UNIDADES CUADRADAS" 
590 PRINT 

600 PRINT "EL VOLUMEN DEL POLIEDRO ES ="3V; "UNIDADES CUBICAS" 
610 END 


ejercicios resueltos: 


1. Hallar el área y el volúmen de un tetraedro cuya arista mide 5.7m. 
SOLUCION: 


LOS POLIEDROS REGULARES CONVEXOS SON : 

1.- TETRAEDRO 

2.- CUBO O EXAEDRO 

3.- OCTAEDRO 

4.- DODECAEDRO 

S3S.- ICOSADRO 

ESCRIBA EL NUMERO QUE PRECEDE AL POLIEDRO QUE QUIERA ESTUDIAR? 1 
INTRODUZCA EL VALOR DE LA ARISTA L =? 3.7 

EL TETRAEDRO REGULAR TIENE : 

4 CARAS (TRIANGULOS EQUILATEROS), 4 VERTICES Y 6 ARISTAS 


EL AREA DEL POLIEDRO ES 56.274331 UNIDADES CUADRADAS 


EL VOLUMEN DEL POLIEDRO ES 21.825204 UNIDADES CUBICAS 
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Ze Hallar el área y el volúmen de un icosaedro cuya arista mide 3.4m. 
SOLUCION: 


ESCRIEA EL NUMERO QUE PRECEDE AL POLIEDRO QUE QUIERA ESTUDIAR? 5 


INTRODUZCA EL VALOR DE LA ARISTA L =? 3.4 


EL ICOUSAEDRO REGULAR TIENE : 


20 CARAS (TRIANGULOS EQUILATEROS), 12 VERTICES Y 30 ARISTAS 


EL AREA DEL POLIEDRO ES 


100.11254 UNIDADES CUADRADAS 


EL VOLUMEN DEL FPOLIEDRO ES = 85.74934 UNIDADES CUBICAS 


3. Hallar el área y el volúmen de un dodecaedro cuya arista mide 5m. 
SOLUCION: 
ESCRIBA EL NUMERO QUE PRECEDE Al. POLIEDRO QUE QUIERA ESTUDIAR? 4 
INTRODUZCA EL VALOR DE LA ARISTA L =? 5 
EL DODECAEDRO REGULAR TIENE : 
12 CARAS (PENTAGONOS REGULARES), 20 VERTICES Y 30 ARISTAS 


EL AREA DEL POLIEDRO ES 


516.14322 UNIDADES CUADRADAS 


El VOLUMEN DEL POLIEDRO ES 


937.389287 UNIDADES CUBICAS 


4. Hallar el área y el volúmen de un cubo cuya arista mide 7cm. 
SOLUCION: 


ESCRIBA EL NUMERO QUE PRECEDE AL POLIEDRO QUE QUIERA ESTUDIAR? 2 
INTRODUZCA EL VALOR DE LA ARISTA L =?2 ? 

EL EXAEDRO O CUBO REGULAR TIENE : 

6 CARAS (CUADRADOS), 8 VERTICES Y 12 ARISTAS 


EL AREA DEL POLIEDRO ES 


9? UNIDADES CUADRADAS 


EL VOLUMEN DEL POLIEDRO ES 


343 UNIDADES CUBICAS 


AREAS Y VOLUMENES DE CUERPOS GEOMÉTRICOS 


introducción: 


los 


Este programa permite calcular el área lateral, tctal y volúmen de 


siguientes cuerpos geométricos: 


1.- Prisma recto 

2.- Pirámide regular 

3.- Tronco de pirámide regular 
4.- Cilindro 

5.- Cono 

6.- Tronco de cono 

7.- Esfera 


listado del programa: 


10 

20 

30 

90 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
z10 
220 
229 
230 
240 
250 


REM RR R0909090929909090900NN0ORRIOOIOIOIIOITOEARAAAA 


REM 

REM AREAS Y VOLUMENES DE 
REM 

REM CUERPOS GEOMETRICOS 
REM 


REM IRRRRRRIRRRRRRRRRRRRRRRRRRRRORRRRRORRRROROAREARORDORDORDOREARORDEARDORDERDODODORAAA 
PRINT 

PRINT "ESTE PROGRAMA PERMITE CALCULAR LAS AREAS Y VOLUMENES DE :” 
PRINT 

PRINT "1.- PRISMA RECTO” 

PRINT "2.- PIRAMIDE REGULAR" 

PRINT "3.- TRONCO DE PIRAMIDE REGULAR" 

PRINT "4.- CILINDRO” 

PRINT "S5.- CONO" 

PRINT "6.- TRONCO DE CONO” 

PRINT "7?.- ESFERA" 

PRINT 

PRINT "SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE"; 
INPUT O 

REM - BORRAR PANTALLA - 

PI= 3.141592654 

PRINT 

PRINT 


260 
269 
270 
280 
290 
300 
310 
320 
330 
330 
349 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
449 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
¿00 
s£10 
619 
620 
630 
6£40 
650 
660 
670 
680 
690 
700 
709 
710 
720 
730 
740 
750 
760 
770 
780 
790 
200 
309 
810 
820 
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ON O GOTO 269,349,44949,619,709,809,929 

REM - AREAS Y VOLUMEN DEL PRISMA - 

GOSUB 1019 

PRINT "ALTURA DEL PRISMA H =";5 

INPUT H 

AL=NXLXAH 

AT=AL+2XSB 

U=HXSB 

GOSUB 1079 

GOTO 200 

REM - AREAS Y VOLUMEN DE LA PIRAMIDE REGULAR - 
GOSUB 1019 

PRINT "APOTEMA DE UNA CARA DE LA PIRAMIDE REGULAR A ="”; 
INPUT A 

PRINT "ALTURA DE LA PIRAMIDE REGULAR H ="; 
INPUT H 

AL=NXLAA / 2 

AT=AL+SB 

V=SBXH/3 

GOSUB 1079 

GOTO 200 

REM - AREAS Y VOLUMEN DEL TRONCO DE PIRAMIDE - 


PRINT "NUMERO DE LADOS DE |A BASE DEL TRONCO DE PIRAMIDE REGULAR N ="; 


INPUT N 

PRINT "VALOR DEL LADO DE LA BASE MAYOR L1 ="”; 
INPUT L1 

PRINT "VALOR DEL LADO DE LA BASE MENOR  L2 ="; 
INPUT L2 

PRINT "ALTURA DE LA CARA A ="; 

INPUT A 

PRINT "ALTURA DEL TRONCO DE PIRAMIDE REGULAR H ="5 
INPUT H 

B1=NXL1XL1/(I9XTAN(PI/N)) 


2=NXL2XL2/(IXTAN(PI/N)) 
AL=NX(L1+L2)XxA/2 
AT=AL+B1+B2 
U=HX (B]1+B2+SQR(B1XB2))/3 
GOSUB 1079 
GOTO 200 
REM - AREAS Y VOLUMEN DEL CILINDRO - 
PRINT "RADIO DE LA BASE R ="; 
INPUT R 
PRINT "ALTURA DEL CILINDRO H =";5 
INPUT H 
AL=2%XP IXRXH 
AT=AL+2ZXP IXARXR 
U=PIXARXRXAH 
GOSUB 1079 
GOTO 200 
REM - AREAS Y VOLUMEN DEL CONO - 
PRINT "RADIO DEL CONO R ="; 
INPUT R 
PRINT "ALTURA DEL CONO H ="; 
INPUT H 
G=SQR (RAR+HXH) 
AL=PIXRXAG 
AT=AL+PIXRAR 
U=P TIXARARXH / 3 
GOSUB 1079 
GOTO 200 
REM - AREAS Y VOLUMEN DEL TRONCO DE CONO - 
PRINT "RADIO MAYOR DEL TRONCO DE CONO Ri ="; 
INPUT Ri 


209 


210 


GEOMETRIA ELEMENTAL 


2830 PRINT "RADIO MENOR DEL TRONCO DE CONO R2 ="; 

340 INPUT R2 

250 PRINT "ALTURA DEL TRONCO DE CONO H =";5 

860 INPUT H 

5370 G=SOR (HXH+ (R1-R2)X(R1-R2)) 

830 AL=PIXG*X(R1+R2) 

290 AT=AL+PIX(RIXARI1+ARZARZ) 

900 U=PIXHXA(RIXRI1+RZARZA+ARIXARZ)/3 

910 GUSUE 1079 

920 GOTO 200 

529 REM - AREA Y VOLUMEN DE LA ESFERA - 

930 PRINT "RADIO DE LA ESFERA R ="; 

940 INPUT R 

950 A=4XP IXARAR 

960 V=AXR/3 

970 PRINT 

980 FRINT 

3790 PRINT "EL AREA DE LA ESFERA ES ="3Aj "UNIDADES CUADRADAS” 
1000 PRINT "EL VOLUMEN DE LA ESFERA ES ="3V;"UNIDADES CUBICAS" 
1010 GOTO 200 

1019 REM -SUBRUTINA PARA EL CALCULO DEL AREA DE LA BASE DE PRISMAS Y PIRAMIDES- 
1020 PRINT "NUMERO DE LADOS DEL POLIGONO DE LA BASE N ="; 
1030 INPUT N 

1040 PRINT "VALOR DEL LADO DE LA BASE L ="; 

1050 INPUT L 

1060 SB=MXLXL/ (4XTAN(PI/N)) 

1070 RETURN 

1079 REM - SALIDA DE RESULTADOS - 

1080 PRINT 

1090 PRINT "EL AREA LATERAL ES =";AL; "UNIDADES CUADRADAS” 
1100 PRINT "EL AREA TOTAL ES ="jAT; "UNIDADES CUADRADAS” 
1110 PRINT "EL VOLUMEN ES ="3Vj3 "UNIDADES CUBICAS” 
1120 PRINT 

1130 RETURN 

1140 END 


ejercicios resueltos: 


lo onazzar el área lateral, el área total y el volúmen de un prisma 


exagonal tal que el lado de la base mide 4 unidades y tiene una altura 
de 10 unidades. 


SOLUCION :: 


NUMERO DE LADOS DEL POLIGONO DE LA BASE N =7? 6 
VALOR DEL LADO DEL BASE L =? 4 
ALTURA DEL PRISMA H =? 10 


EL AREA LATERAL ES = 240 UNIDADES CUADRADAS 
EL AREA TOTAL ES 


EL VOLUMEN ES = 415.69219 UNIDADES CUBICAS 


323.13844 UNIDADES CUADRADAS 


Z. Hallar el área lateral, el área total y el volúmen de un cilindro 


que 


tiene por radio de la base 5 unidades y 12 unidades de altura. 


SOLUCION: 
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RADIO DE LA BASE R =? 5 
ALTURA DEL CILINDRO H =? 12 


EL AREA LATERAL ES = 376.99112 UNIDADES CUADRADAS 
EL AREA TOTAL ES 534.07075 UNIDADES CUADRADAS 
EL VOLUMEN ES 942.4778 UNIDADES CUBICAS 


3. Hallar el área lateral, el área total y el volúmen de un tronco 
de cono que tiene por radios 8 y 6 unidades y 19 unidades de altura. 
SOLUCION: 


RADIO MAYOR DEL TRONCO DE CONO Ri =? 8 
RADIO MENOR DEL TRONCO DE CONO R2 =? 6 
ALTURA DEL TRONCO DE CONO H =? 19 


EL AREA LATERAL ES = 840.28061 UNIDADES CUADRADAS 


EL AREA TOTAL ES = 1154.4399 UNIDADES CUADRADAS 
EL VOLUMEN ES = 2944.7195 UNIDADES CUBICAS 


Á. altar el área y el volúmen de una esfera de radio R = 12.5 m. 
SOLUCION: 


RADIO DE LA ESFERA R =? 12.5 


EL AREA DE LA ESFERA ES 
EL VOLUMEN DE LA ESFERA ES 


1963.4954 UNIDADES CUADRADAS 
8181.2309 UNIDADES CUBICAS 


e UÁTIaR el área lateral, el área total y el yolúmen de un cono de 
revolución que tiene 5m. de altura y el radio de la base mide 8.5m. 
SOLUCION: 


RADIO DEL CONO R =? 8.5 
H 


8 
ALTURA DEL CONO =2 5 


263.33804 UNIDADES CUADRADAS 
490.31811 UNIDADES CUADRADAS 
378.30012 UNIDADES CUBICAS 


EL AREA LATERAL ES 
EL AREA TOTAL ES 
EL VOLUMEN ES 


OPERACIONES CON VECTORES EN EL PLANO AFIN 


introducción: 


Este programa permite realizar los siguientes cálculos: 


1.- Coordenadas de un vector libre en el plano afín conocidos sus 


extremos. 
2.- Suma de vectores libres en el plano afín. 
3.- Diferencia de vectores libres en el plano afín. 


- Producto de un escalar por un vector libre. 


5.- Equipolencia entre vectores libres en el plano afín. 


Intencionadamente se han separado cálculos como el módulo de un 


vector, o el ángulo formado por dos vectores etc. por ser únicamente po 


sible en el plano afín euclideo, como veremos en otro programa posterior 


mente. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
229 


REM 2920000200222 


REM 
REM 
REM 
REM 
REM 


VECTORES EN EL 


PLANO AF IN 


REM IRRRRRRRRRRRRORRRRONRRRRRROARORARRARORARDARRORAEARROAREO RARE 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
REM - 


"ESTE PROGRAMA PERMITE REALIZAR OPERACIONES AFINES " 
"CON VECTORES EN EL PLANO" 


"1i.- COORDENADAS DE UN VECTOR LIBRE, CONOCIDOS SUS EXTREMOS" 
"2.- SUMA DE VECTORES LIBRES” 

"3.- DIFERENCIA DE VECTORES LIBRES" 

"4.- PRODUCTO DE UN ESCALAR POR UN VECTOR LIBRE" 

"5.- EQUIPOLENCIA ENTRE VECTORES LIBRES” 


"SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE”; 
L 


BORRAR PANTALLA - 
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230 ON L GOTO 240,330,390,450,540 

240 PRINT "COORDENADAS DE UN VECTOR V=PQ, CONOCIDOS SUS EXTREMOS P Y Q” 
250 PRINT 

260 PRINT "INTRODUZCA LAS COORDENADAS X.Y DEL PUNTO P";5 

270 INPUT X1,Y1 

280 PRINT "INTRODUZCA LAS COORDENADAS X.Y DEL PUNTO Q"; 

290 INPUT X2,Y2 

300 PRINT 

310 PRINT "LAS COORDENADAS DEL VECTOR LIBRE V=PQ SON 1 ("53X2-xX13","3Y2-Y13")" 
320 GOTO 190 

330 PRINT "SUMA DE VECTORES LIBRES V + W” 


340 PRINT 

350 GUSUB 230 

360 FRINT 

370 PRINT "COORDENADAS DEL VECTOR SUMA VU Wo = ("3X1+xX23","3Y1+Y2;3")" 


380 GOTO 190 
390 PRINT "DIFERENCIA DE VECTORES LIBRES V - W" 


400 PRINT 

410 GUSUB 230 

3420 PRINT 

430 PRINT "COORDENADAS DEL VECTOR DIFERENCIA VU- MW = ("3xX1-X23","3Y1-Y23")” 


440 GOTO 190 

450 PRINT "PRODUCTO DE UN ESCALAR K POR UN VECTOR LIBRE V" 
460 PRINT 

470 PRINT "INTRODUZCA LAS COORDENADAS X,Y DEL VECTOR V *"; 
480 INPUT X1,Y1 > 

490 PRINT "INTRODUZCA EL ESCALAR K ="; 

500 INFUT K 

510 PRINT 

520 PRINT "LAS COORDENADAS DEL VECTOR KXV SON 2 ("3KXxX153","3kKXY153")" 
530 GOTO 190 

540 PRINT "EQUIPOLENCIA DE LOS VECTORES V=PQ Y  W=MN" 
550 PRINT 

560 PRINT "INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO P”; 
570 INPUT x1,Y1 

580 FRINT "INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO Q"; 
590 INPUT Xx2,Y2 

600 PRINT 

610 PRINT "INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO Mm"; 
é20 INPUT X3,Y3 

630 PRINT "INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO N"; 
640 INPUT X4,Y4 

650 IF X2-X1=X49-X3 AND Y2-Yi=Y4-Y3 THEN GOTO 200 

660 PRINT 

670 PRINT "LOS VECTORES V=PQ Y W=MN NO SON EQUIPOLENTES" 
é80 GOTO 190 

690 PRINT 

700 PRINT "LOS VECTORES V=PQ Y  W=MN SON EQUIPOLENTES" 
710 GOTO 190 ] 
730 PRINT "INTRODUZCA LAS COORDENADAS X,Y DEL VECTOR Y *; 
740 INPUT X1,Y1 

750 PRINT "INTRODUZCA LAS COORDENADAS X,Y DEL VECTOR W ”; 
760 INPUT X2,Y2 

770 RETURN 

780 END 


ejercicios resueltos: 


q A el vector y = PG y W = MÑ siendo P(2, 8),0(5,-3),M(1,3), 
N(4,-8). Comprobar si Y y w son equipolentes. 


SOLUCION :: 
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EQUIPOLENCIA DE LOS VECTORES. V=PQ Y  W=MN 


INTRODUZCA LAS COORDENADAS X.Y DEL PUNTO P? 2 8 
INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO QU? 5 -3 


INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO M”? 1 3 


INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO N? 4 -8 
LOS VECTORES V=PQ Y  W=MN SON EQUIPOLENTES 


Le Dados los vectores Y = (-3,9) y W = (17,68). Hallar las coor- 
denadas del vector v + w. 
SOLUCION : 


SUMA DE VECTORES LIBRES V + yw 


INTRODUZCA LAS COORDENADAS X,Y DEL VECTOR V ?-3 9 
INTRODUZCA LAS COORDENADAS X,Y DEL VECTOR W ? 17? 68 


COORDENADAS DEL VECTOR SUMA VW = (194, 77) 


3 mnallar las coordenadas del vector y = PQ, siendo P(3,-7) y Q(1,6). 
SOLUCION :: 


COORDENADAS DE UN VECTOR V=PQ, CONOCIDOS SUS EXTREMOS P Y Q 


INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO P? 3 =Z 
INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO Q? 1 6 
LAS COORDENADAS DEL VECTOR LIBRE V=PQ SON :(-2 , 13 ) 


A os les esca Pa (-23,78) y W= (19, -34). Hallar las coor- 
denadas del vector y - W. 
SOLUCION: 


DIFERENCIA DE VECTORES LIBRES V - Y 


INTRODUZCA LAS COORDENADAS X.Y DEL VECTOR V ?-23 78 
INTRODUZCA LAS COORDENADAS X,Y DEL VECTOR W ? 19 -34 


COORDENADAS DEL VECTOR DIFERENCIA V - YW 


$“ 

1 
Lh 
N 
- 
pa 
N 


S. Dado el vector y = (31,17) y k = 13. Hallar las coordenadas del 
vector kv. 
SOLUCION :: 


PRODUCTO DE UN ESCALAR K POR UN VECTOR LIBRE Y 


INTRODUZCA LAS COORDENADAS X,Y DEL VECTOR V ? 31 17 
INTRODUZCA EL ESCALAR K =? 13 


LAS COORDENADAS DEL VECTOR KXV SON :( 403 , 221 ) 


CAMBIO DE SISTEMA DE REFERENCIA EN EL 


PLANO AFIN 


introducción: 


Este programa permite realizar el cambio de sistema de referencia 


Y . d 
en el plano afín. Para ello, es preciso conocer las coordenadas del nuevo 


origen y de los vectores de la nueva base en función de la referencia an 


tigua. 


Además es necesario introducir las coordenadas antiguas del vector 


YX . 
w. Al ejecutar el programa se obtiene las coordenadas nuevas de dicho vec 


Tor. 


listado del programa: 


REM 2600000904202) 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


REM 
REM 
REM 
REM 
REM 


CAMBIO DE SISTEMA DE 


REFERENCIA EN EL PLANO AF IN 


REM RRA 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 


"SISTEMA DE REFERENCIA ANTIGUO 
"SISTEMA DE REFERENCIA NUEVO 


R (0 ¡¿U1,U2)” 
R” (0* 3U1,V2)" 


"INTRODUZCA LAS COORDENADAS X,Y DEL NUEVO ORIGEN O” RESPECTO DE R”; 
A1,A2 
"INTRODUZCA LAS COORDENADAS X,Y DEL NUEVO VECTOR V1,RESPECTO DE R"; 
A3,A4 
"INTRODUZCA LAS COORDENADAS X,Y DEL NUEVO VECTOR V2,RESPECTO DE R"; 
AS5,A6 


D=ASXA6G-A4XAAS 
IF D=0 THEN GOTO 300 


PRINT 
PRINT 
INPUT 


"INTRODUZCA LAS COORDENADAS ANTIGUAS X,Y DEL VECTOR Y"; 
x1,Y1 


X2=(-AIXAG+AZXAS+X1XA6-YIXAS)/D 
Y2=(A1XxA4-A2X*A3-X1X*A9+Y1XA3)/D 


PRINT 
PRINT 
STOP 
PRINT 
PRINT 
END 


"LAS COORDENADAS NUEVAS DEL VECTOR W SON (*"5X23",."53Y23")" 


"LOS VECTORES Vi, V2 NO FORMAN BASE, REVISE SUS COORDENADAS" 


216 PLANO AFIN 


ejercicios resueltos: 


1 — > — — . Y 
e. Sean R(0,u, ,U,) Y R'(0',V¿rV,) dos referencias del plano afin 
tal que: 


' pe 
00' = 7u7 + 8u, 
> > > 
Va. = 2u7 - 3u, 
-> _ 5 + sn 
EM UA he 


Hallar respecto de R' las coordenadas de un vector w, que respecto 
de R tiene coordenadas (12,-7). 
SOLUCION: 


SISTEMA DE REFERENCIA ANTIGUO : R (0 j¡jUL,UZ) 

SISTEMA DE REFERENCIA NUEVO : R” (0*3V1,UV2) 

INTRODUZCA LAS COORDENADAS X,Y DEL NUEVO ORIGEN O” RESPECTO DE R? ? 8 
INTRODUZCA LAS COORDENADAS X,Y DEL NUEVO VECTOR V1,RESPECTO DE R? 2 =S 
INTRODUZCA LAS COORDENADAS X,Y DEL NUEVO VECTOR V2,RESPECTO DE R? 5 ó 
INTRODUZCA LAS COORDENADAS ANTIGUAS X,Y DEL VECTOR W? 12 = he 

LAS COORDENADAS NUEVAS DEL VECTOR W SON ( 3.8888889 ,-.55555556 ) 


2 > > > > 
e Sean R(0,u; /U),) Y R*(0',v,,V,) dos referencias del plano afin 


tal que: 
00' = 24, - 3u 
lic! >, 
> E 3% — 
Ya = ús - úu) 
> ÉS 2 
1 A 


Hallar respecto de R' las coordenadas de un vector w, que respecto 
de R tiene coordenadas (5,7). 
SOLUCION: 


SISTEMA DE REFERENCIA ANTIGUO 
SISTEMA DE REFERENCIA NUEVO 


R (0 ¿U1,UZ2) 
R”* (0*53V1,V2) 


INTRODUZCA LAS COORDENADAS X,Y DEL NUEVO ORIGEN O”, RESPECTO DE R? 2 -3 
INTRODUZCA LAS COORDENADAS X,Y DEL NUEVO VECTUR V1,RESPECTO DE R? 3 -1 
INTRODUZCA LAS COORDENADAS X,Y DEL NUEVO VECTOR V2,RESPECTO DE R? é =z 


LOS VECTORES Vi, V2 NO FORMAN BASE, REVISE SUS COORDENADAS 


DETERMINACION DE RECTAS EN EL PLANO AFÍN 


introducción: 


Este programa permite obtener la ecuación de una recta en los si- 


guientes casos de determinación: 


> 
1.- Por un punto base P y un vector director v no nulo. 
2.- Por dos puntos distintos P y Q. 
3.- Por un punto P y una pendiente m. 


4.- Por los segmentos que determina sobre los ejes. 


Al ejecutar el programa en cada caso, se obtiene la ecuación de la 


. . . . A 
recta pedida en forma paramétrica, contínua, general o implícita, explí- 


cita, punto-pendiente y segmentaria. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
199 
200 
210 
220 
230 
240 
250 
260 


REM 2800980090020 


REM 
REM 
REM 
REM 
REM 


DETERMINACION DE UNA RECTA 


EN EL PLANO AF IN 


REM RRRRRRRRRRORORARORRRRRRRRRRRRRRRRORRRRRRRRORRRRRDDRORARORORARDORDORDOODRAA 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
REM - 
PRINT 
PRINT 


"ESTE PROGRAMA PERMITE DETERMINAR UNA RECTA DEL SIGUIENTE MODO 3” 


"1.- POR UN PUNTO BASE P Y UN VECTOR DIRECCION Y” 
*2.- POR DOS PUNTOS P Y Q” 

"3.- POR UN PUNTO P Y UNA PENDIENTE Mm" 

"4.- POR LOS SEGMENTOS QUE DETERMINA SOBRE LOS EJES” 


"SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE”; 
L 
BORRAR PANTALLA - 


ON L GOTO 230,280,350,420 


PRINT 
INPUT 
PRINT 
INPUT 


"INTRODUZCA LAS COORDENADAS XO,YO DEL PUNTO BASE P”; 

XO0,YO 

"INTRODUZCA LAS COORDENADAS V1,V2 DEL VECTOR DIRECCION Y”; 
v1,V2 
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270 GOSUB 499 

280 PRINT "INTRODUZCA LAS COORDENADAS XO,YO, DEL PUNTO P”; 
290 INPUT XO,YO 

300 PRINT "INTRODUZCA LAS COORDENADAS X1,Y1, DEL PUNTO Q”; 
310 INPUT X1,Y1 

320 Vi=X1-X0 

330 V2=Y1-YO 

340 GOSUB 499 

350 PRINT "INTRODUZCA LAS COORDENADAS X0O,YO, DEL PUNTO P”; 
360 INPUT XO,YO 

370 PRINT "INTRODUZCA LA PENDIENTE DE LA RECTA”; 

380 INPUT Z 

390 Vi=1 

400 V2=Z 

410 GOSUB 499 

420 PRINT"INTRODUZCA EL SEGMENTO QUE DETERMINA SOBRE EL EJE X CON SU SIGNO"; 
430 INPUT I 

440 PRINT" INTRODUZCA EL SEGMENTO QUE DETERMINA SOBRE EL EJE Y CON SU SIGNO"; 
450 INPUT J 

460 X0O=1:YO=0 

470 Vi=1:V2=-J 

4380 GOSUB 499 

499 REM - SUBRUTINA DE SALIDA DE RESULTADOS - 

500 IF Vi=0 AND V2=0 THEN GOTO 980 

510 PRINT 

520 PRINT 

530 PRINT "ECUACIONES PARAMETRICAS DE LA RECTA PEDIDA :" 
540 PRINT 

550 PRINT "X ="3X053"+ T X("3V153")" 

560 PRINT "Y ="3Y03"+ T X("3UZ23")" 

570 PRINT 

580 PRINT "ECUACION DE LA RECTA PEDIDA EN FORMA CONTINUA :" 
590 PRINT 


600 PRINT "X - "3XO03"” v= =FYO 
610 PRINT *"------ se E » 
620 PRINT " "3V13*” "3v2 
630 PRINT 


640 PRINT "ECUACION DE LA RECTA PEDIDA EN FORMA GENERAL O IMPLICITA :" 
650 PRINT 

660 PRINT VU23"X +"3-V1j3"Y +";3V1XYO-U2XX03" = O” 

670 PRINT 

680 PRINT "ECUACION DE LA RECTA PEDIDA EN FORMA EXPLICITA :" 

690 PRINT 

700 IF Vi=0 THEN GOTO 730 

710 PRINT "Y = "3U2/V1;3"X +"3 (YOXV1-U2%XX0)/V1 

720 GOTO 750 

730 PRINT "Y ="5X0 

740 GOTO 180 

750 PRINT 

760 PRINT "ECUACION DE LA RECTA PEDIDA EN FORMA PUNTO-PENDIENTE :” 
770 PRINT 

780 IF Vi=0 THEN GOTO 810 

790 PRINT "Y - "3YOj3" = "3UZ/V1j3"(X - "5X03")" 

800 GOTO 820 

810 PRINT "Y = "3X0 

820 PRINT 

830 PRINT "ECUACION DE LA RECTA PEDIDA EN FORMA SEGMENTARIA :" 

840 PRINT 

850 IF V2XXO-V1iXYO=0 THEN PRINT "LA RECTA PASA POR EL ORIGEN":GOTO 950 
860 IF Vi=0 THEN PRINT "Y =";3X0:GOTO 950 

270 IF V2=0 THEN PRINT "X ="3YO:GOTO 950 

880 M1=(V2XXO-V1XYO)/VUZ :¿M=INT(M1X*10+.5)/10 

890 N1=(U2XXO-VIXYO) / (-V1) :N=INT(N1X10+.5)/10 
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900 PRINT ” X > 

910 PRINT " ----- to ———-- e Ye 
920 PRINT "  "j3m3" "3N 

230 PRINT 

940 PRINT 


250 GOTO 180 
960 PRINT "Y =";x0 
970 RETURN 


780 PRINT "NO EXISTE RECTA PUES EL VECTOR DIRECCION ES NULO" 
990 END 


ejercicios resueltos: 


Lois la ecuación de la recta que pasa por los puntos (2,-7) y 
(5,12). De todas las formas posibles. 
SOLUCION: 


INTRODUZCA LAS COORDENADAS XO,YO, DEL PUNTO P? 2 -2 
INTRODUZCA LAS COORDENADAS X1,Y1, DEL PUNTO Q? 5 12 


ECUACIONES PARAMETRICAS DE LA RECTA PEDIDA : 


ECUACION DE LA RECTA PEDIDA EN FORMA CONTINUA : 


ECUACION DE LA RECTA PEDIDA EN FORMA GENERAL O IMPLICITA : 
19 X +-3 Y +59 =0 

ECUACION DE LA RECTA PEDIDA EN FORMA EXPLICITA : 

Y = 6.3333333 X +-19.666667 

ECUACION DE LA RECTA PEDIDA EN FORMA PUNTO-PENDIENTE : 

Y -=--7 = 6.3333333 (X - 2) 


ECUACION DE LA RECTA PEDIDA EN FORMA SEGMENTARIA : 


7 Hallar la ecuación de la recta que determina un segmento de -5 uni 
dades sobre el eje x y otro de 2 unidades sobre el eje y. 
SOLUCIOR:: 
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5 _ __zz=z 2 A A — A A <<< << <]<á<]<á<—<áy>]>;á>;]X 


INTRODUZCA EL SEGMENTO QUE DETERMINA SOBRE EL EJE X CON SU SIGNO?-5 
INTRODUZCA EL SEGMENTO QUE DETERMINA SOBRE EL EJE Y CON SU SIGNO? 2 


ECUACIONES PARAMETRICAS DE LA RECTA PEDIDA : 


ECUACION DE LA RECTA PEDIDA EN FORMA CONTINUA : 


ECUACION DE LA RECTA PEDIDA EN FORMA GENERAL O IMPLICITA : 
-=2 XxX +5 Y +-10 = O 

ECUACION DE LA RECTA PEDIDA EN FORMA EXPLICITA : 

Y= .9Xx+2 

ECUACION DE LA RECTA PEDIDA EN FORMA PUNTO-PENDIENTE : 

Y- 0 = ,9 (X - -5 ) 


ECUACION DE LA RECTA PEDIDA EN FORMA SEGMENTARIA : 


INCIDENCIA. PARALELISMO E INTERSECCION EN EL 
PLANO AFIN 


introducción: 


El presente programa estudia los tres problemas que se presentan 
en el plano afín: la incidencia, el paralelismo y la intersección. Al 
estudiar las posiciones relativas de dos rectas y para el caso de rectas 
secantes, el programa obtiene el punto de intersección, proporcionando 
sus coordenadas. 


listado del programa: 


10 REM IRRSRRRRRRARRSRRRRRORORRRRORRRRRRRRRRRRRORRRRRRRRRRRR0009000900R000DRIDDRDEA 
20 REM 


30 REM INCIDENCIA, PARALELISMO E 

490 REM 

50 REM INTERSECCION EN EL PLANO AF IN 

60 REM 

70 REM IRSRRRRORRORRRRRRORRRRRRRRRRRRRRRRRRRRORRRORRRORRRORRRRRRRRRRRORRROROREODORAOAES 
100 PRINT 

110 PRINT "ESTE PROGRAMA PERMITE ESTUDIAR LO SIGUIENTE :" 

120 PRINT 


130 PRINT "1.- INCIDENCIA DE UN PUNTO CON UNA RECTA" 
140 PRINT "2.- ALINEACION DE TRES PUNTOS” 

150 PRINT "3.- POSICIONES RELATIVAS DE DOS RECTAS" 

150 PRINT "4.- RADIACION DE RECTAS" 

170 PRINT 

130 PRINT 

190 PRINT "SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE"; 
200 INPUT L 

210 PRINT 

220 PRINT 

230 PRINT 

239 REM - BORRAR LA PANTALLA - 

240 ON L GOTO 250,370,500,620 

250 PRINT "SEA LA RECTA R DE ECUACION : A X + B Y = C” 
260 PRINT 

270 PRINT "INTRODUZCA LOS COEFICIENTES A,B,C”"; 

280 INPUT A,B,C 

290 PRINT "INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO FP "5 
300 INPUT XO,YO 

310 PRINT 

320 IF C=A*XXO+EXYO THEN GOTO 350 

330 PRINT "EL PUNTO P NO ES INCIDENTE CON LA RECTA R" 
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340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
10 
820 
830 
3840 
250 
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GOTO 170 


PRINT 


"EL PUNTO P ES INCIDENTE CON LA RECTA R*" 


GOTO 170 
"INTRODUCIR LAS COORDENADAS X,Y DEL PUNTO P”;5 


PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
INPUT 
PRINT 
PRINT 


IF (X1-X0)X(Y2-YO)=1(Xx2-X0)X(Y1-YO) 
“LOS PUNTOS P, Q, S, NO ESTAN ALINEADOS" 


PRINT 


X0,YO 


"INTRODUCIR LAS COORDENADAS X,Y DEL PUNTO Q*"; 


X1,Y1 


"INTRODUCIR LAS COORDENADAS X,Y DEL PUNTO S"; 


2, Y2 


GOTO 170 


PRINT 


"LOS PUNTOS P, Q, S, ESTAN ALINEADOS" 


GOTO 170 


GOSUB 
PRINT 
PRINT 


720 


IF D<>0 THEN GOTO 570 


IF D=0 AND B2XC1<>B1X*C2 THEN GOTO 600 

PRINT "LAS RECTAS R Y R?: SON COINCIDENTES” 

GOTO 170 

PRINT "LAS RECTAS R Y R” SON SECANTES, EL PUNTO DE INTERSECCION ES 
PRINT "("3X33","53Y33")" 

GOTO 170 

PRINT "LAS RECTAS R Y R” SON PARALELAS Y DISTINTAS” 
GOTO 170 

GOSUB 2720 

PRINT 

PRINT 

IF D=O0 THEN GOTO 2700 


PRINT "LA RADIACION DE RECTAS TIENE LA SIGUIENTE ECUACION 
PRINT 

PRINT "Y -"3Y33" = M (Xx -"3X33")" 

GOTO 170 

PRINT "LAS RECTAS NO SON SECANTES, POR TANTO NO HAY RADIACION” 
GOTO 170 

PRINT 

PRINT "SEA LA RECTA R DE ECUACION: A X + B Y = C” 
PRINT "INTRODUZCA LOS COEFICIENTES A, B, C "; 

INPUT A1,B1,C1 

PRINT 

PRINT "Y LA RECTA R” DE ECUACION: A*X + B*Y = C” 
PRINT "INTRODUZCA LOS COEFICIENTES A”, B*, C” "; 

INPUT A2,B2,C2 

D=A1XB2-A2ZXB1 


IF D=0 THEN GOTO 840 
x3=(C2XB1-C1XB2)/D 
Y3=(A2X*C1-A1X*C2)/D 


RETURN 


END 


ejercicios resueltos: 


THEN GOTO 480 


desu la posición relativa de las rectas: 


5x-y+7=0 y 


SOLUCION: 


10x - 2y + 9 
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SEA LA RECTA R DE ECUACION: A X + B 
INTRODUZCA LOS COEFICIENTES A, B, C ? 


Y LA RECTA R” DE ECUACION: A*X + B*Y = C” 
INTRODUZCA LOS COEFICIENTES A”, B”, C” ? 10 -2 9 


LAS RECTAS R Y R* SON PARALELAS Y DISTINTAS 


1. Hallar la ecuación de la radiación de rectas que tiene por foco el 
punto de intersección de las rectas: 


IX+y+5=0 y 2H 6= 0 
SOLUCION: 


SEA LA RECTA R DE ECUACION: A X + BY =C 
INTRODUZCA LOS COEFICIENTES A, B, C ? 3 1 5 


Y LA RECTA R” DE ECUACION: A*X + B*Y = C” 
INTRODUZCA LOS COEFICIENTES A”, B”, C” ? 2 o 6 


LA RADIACION DE RECTAS TIENE LA SIGUIENTE ECUACION : 
Y-9 =MA1(X --3 ) 


Ds Hallar la posición relativa de las rectas: 
2xX + 5y +3 =0 Y 6x + 2y - 5= 0 


Hallar también las coordenadas del punto de intersección. 
SOLUCION: 


SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE? 3 


SEA LA RECTA RR DE ECUACION: A X + BY =C 
INTRODUZCA LOS COEFICIENTES A, B, C ? 2 5 3 


Y LA RECTA R” DE ECUACION: A'X + B*Y = C” 
INTRODUZCA LOS COEFICIENTES A”, B”, C” ? 6 2 -5 


LAS RECTAS R Y R” SON SECANTES, EL PUNTO DE INTERSECCION ES :( 1.1923077 «1.076 
9231 >) 


3. Ver si estan alineados los puntos P(3,-5), Q(2,9) y S(6,8). 
SOLUCION: 


INTRODUCIR LAS COORDENADAS X,Y DEL PUNTO P? 3. -5 
INTRODUCIR LAS COORDENADAS X,Y DEL PUNTO Q? 2 9 
INTRODUCIR LAS COORDENADAS X.Y DEL PUNTO S7? é 8 


LOs PUNTOS P, Q, S, NO ESTAN ALINEADOS 


CONVERSION DE ANGULOS 


introducción: 


Este programa permite convertir ángulos expresados en grados a ra- 
dianes y de radianes a grados. 


Esta es una importante subrutina, ya que se emplea con frecuencia 
en numerosos programas. 


listado del programa: 


10 REM 2289290990029) 
20 REM 

30 REM CONVERSION DE ANGULOS 

40 REM 

50 REM DE GRADOS A RADIANES Y 

60 REM 

70 REM DE RADIANES A GRADOS 

80 REM 

90 REM 4000290209002 
100 PRINT:PRINT 

110 PRINT "DE GRADOS A RADIANES 
120 PRINT "DE RADIANES A GRADOS 
130 INPUT L 

140 PRINT:PRINT 

150 IF L=2 THEN GOTO 290 

159 REM - DE GRADOS, MINUTOS Y SEGUNDOS A RADIANES - 

160 PRINT "INTRODUZCA LOS GRADOS, MINUTOS Y SEGUNDOS DEL ANGULO" 


PULSE 1" 
PULSE 2” 


170 PRINT "GRADOS G="; 
180 INPUT G 
190 PRINT "MINUTOS M ="; 
200 INPUT M 
210 PRINT "SEGUNDOS Ss =*; 


220 INPUT S 

230 PI=3.1415926535897932 

240 A=G+M/6560+5/3600 

250 B=INT(A/360) 

260 R=A*X.0174532925-BX2XP I 

270 PRINT "EL ANGULO DE";G;"GRADOS,";3M;5"MINUTOS, "5S;"SEGUNDOS ="3R;3"RADIANES" 
280 GOTO 100 

289 REM - DE RADIANES A GRADOS, MINUTOS Y SEGUNDOS - 

290 PRINT "INTRODUZCA EL ANGULO EN RADIANES”; 

300 INPUT R 
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310 K=57.29577951 
320 Z=R*XK 

330 G=INT(Z) 

340 M=INT ((Z-G)*X60) 

350 S=INT (((Z-G)X60-M)X60) 

3ó0 IF G>= 360 THEN GOTO 380 

370 GOTO 390 

380 G=G-360%*INT(G/360) 

390 PRINT:PRINT 

400 PRINT "EL ANGULO DE";3R;"RADIANES ="5G;5 "GRADOS, "5M3 "MINUTOS, "35; "SEGUNDOSÉ 
410 GOTO 100 

420 END 


ejercicios resueltos: 


1. Pasar a grados, minutos y segundos los siguientes ángulos dados 
en radianes: 1 radian, 2 radianes. 
SOLUCION: 


INTRODUZCA EL ANGULO EN RADIANES? 1 


EL ANGULO DE 1 RADIANES = 57 GRADOS, 17 MINUTOS, 44 SEGUNDOS 


INTRODUZCA EL ANGULO EN RADIANES? 2 


EL ANGULO DE 2 RADIANES = 114 GRADOS, 35 MINUTOS, 29 SEGUNDOS 


Li Pasar a radianes, los siguientes ángulos: 23%45' 17" y 2702 
SOLUCION: 


INTRODUZCA LOS GRADOS, MINUTOS Y SEGUNDOS DEL ANGULO 


GRADOS G =? 23 

MINUTOS mM =? 35 

SEGUNDOS Ss =? 172 

EL ANGULO DE 23 GRADOS, 45 MINU1OS, 17 SEGUNDOS = .41459812 RADIANES 


INTRODUZCA LOS GRADOS, MINUTOS Y SEGUNDUS DEL ANGULO 


GRADOS G =? 270 
MINUTOS M=?0 
SEGUNDOS s=?0 


EL ANGULO DE 270 GRADOS, O MINUTOS, O SEGUNDOS = 4.712389 RADIANES 


OPERACIONES CON VECTORES EN EL PLANO AFIN 
EUCLIDEO 


introducción: 


Este programa permite realizar operaciones con vectores en el plano 
afín euclideo. 
; > 4 j 
Introducidas las coordenadas de los vectores v y w al ejecutar el 


programa se obtiene: 


> > 
1.- Las coordenadas del vector suma V + w. 
: > 
2.- Las coordenadas del vector diferencia vV - w. 
>> 
3.- El producto escalar v.w 


4.- El módulo del vector v. 


5.- El módulo del vector w. 


6.- El ángulo que forman los vectores v y W. 
7.- Los ángulos que forma el vector y,con cada uno de los ejes. 
8.- Los ángulos que forma el vector w,con cada uno de los ejes. 


Los ángulos se obtienen en grados, minutos y segundos, debido a la 


subrutina que se inicia en la linea 550. 


listado del programa: 


10 REM RRRRRORRRORORAROORORARRRRROOOROIODODODOIOIOA III 
20 REM 


30 REM OPERACIONES CON VECTORES 

40 REM 

50 REM EN EL PLANO AF IN EUCLIDEO 
60 REM 


70 REM IRRRRRRRRRARARDARORADARARARARORARRORRRDRDRORDEARERARDRERIACIACIA AICA 
100 PRINT 

110 PRINT "OPERACIONES CON VECTORES EN EL PLANO AFIN EUCLIDEO" 
120 PRINT 

130 G$="GRADOS, ” 

140 M$="MINUTOS, " 

150 SS$="SEGUNDOS” 

160 PRINT 

170 PRINT 

130 PRINT "VECTOR V : COORDENADAS X,Y "; 

190 INPUT X1,Y1 

200 PRINT "VECTOR W : COORDENADAS X.Y ”; 

210 INPUT X2,Y2 


220 
230 
240 
250 
260 
270 
280 
290 
310 
320 
330 
340 
350 
360 
37 

380 
390 
400 
310 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
600 
ó6l0 


J.R.VIZMANOS 227 


PRINT 

PRINT 

PRINT "EL VECTOR SUMA ES 

PRINT "EL VECTOR DIFERENCIA ES 
PRINT "EL PRODUCTO ESCALAR ES 
N1=SQR (X1XX1+Y1XY1) 

N2Z=SQR (X2XX2+Y2XY2) 

PRINT "EL MODULO DEL VECTOR V ES 
PRINT "EL MODULO DEL VECTOR YW ES 
K=57.29578 

D=(X1XX2+Y1XY2)/ (N1XNZ) 
A=ACS(D)%XK 

Z=A * 


GOSUB 550 


PRINT "ANGULO QUE FORMAN LOS VECTORES V Y W "36 


A1=ACS (X1/N1)XK 

Z=Al 

GOSUB 550 

PRINT "ANGULO QUE FORMAN EL VECTOR Y 
A2Z=ACS(Y1/N1)XK 

Z=A2 

GOSUB 550 

PRINT "ANGULO QUE FORMAN EL VECTOR Y 
B1=ACS (X2/N2) XK 

Z=B1 

GOSUB 550 

PRINT "ANGULO QUE FORMAN EL VECTOR W 
B2=ACS (Y2/N2)%XK 

Z2=B2 

GOSUB 550 

PRINT "ANGULO QUE FORMAN EL VECTOR W 
GOTO 610 

REM -SUBRUTINA PARA PASAR A GRADOS, 
G=INT (2) 

M=INT ((Z-G)X60) 

SS=INT (((Z-G)X60-M)*X60) 

RETURN 

END 


ejercicios resueltos: 


1. Dados los vectores y = (3,-5) 


> > 


"(XL 23",."5Y1+Y23")" 
a O E e A ME e o 4 Ml 
XIXXZ+YVIXYZ 


<<< 
eozz 


G$;M;M$3 SS; SS$ 


CON EL EJE X :"3636$63M;M$35S;SS$ 


CON EL EJE Y :"36;6%$;3M;MS$;S5S;S5S%$ 


CON EL EJE X :"36;36$;M3M$;SS;SS$ 


CON EL EJE Y :"36;6%$3M;3M$;5S;5SS$ 


MINUTOS Y SEGUNDOS - 


> 
y w= (9,1). 


>> — —- e 
Hallar v+w, vV.w, módulo de v, módulo de w, ángulo formado por v y 


> — > 
w y los ángulos formados por los vectores v y w con cada uno de los ejes 


cartesianos. 
SOLUCION: 


OPERACIONES CON VECTORES EN EL PLANO AFIN EUCLIDEO 


VECTOR UV 
VECTOR Y 


EL VECTOR SUMA ES 
EL VECTOR DIFERENCIA ES 
EL PRODUCTO ESCALAR ES 


COORDENADAS X,Y 7? 3 -5 
COORDENADAS X,Y ? 9 1 
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EL MODULO DEL VECTOR V ES = 5.8309519 

EL MODULO DEL VECTOR W ES 9.0553851 

ANGULO QUE FORMAN LOS VECTORES V Y W 65 GRADOS, 22 MINUTOS, 35 SEGUNDOS 
ANGULO QUE FORMAN EL VECTOR V CON EL EJE X 59 GRADOS, 2 MINUTOS, 10 SEGUNDOS 
ANGULO QUE FORMAN EL VECTOR V CON EL EJE Y 149 GRADOS, 2 MINUTOS, 10 SEGUNDOS 
ANGULO QUE FORMAN EL VECTOR W CON EL EJE X 6 GRADOS, 20 MINUTOS, 24 SEGUNDOS 
ANGULO QUE FORMAN EL VECTOR W CON EL EJE Y 83 GRADOS, 39 MINUTOS, 35 SEGUNDOS 


1. Dados los vectores Y = (6,22) y w = (-13,7). 
So >> - — - 
Hallar v+w, v.w, módulo de v, módulo de w, ángulo formado por y y 
W y los ángulos formados por los vectores y Y w con cada uno de los ejes 
cartesianos. 
SOLUCION: 


OPERACIONES CON VECTORES EN EL ESPACIO AFIN EUCLIDEO 


1) 
18] 


VECTOR U 


COORDENADAS *X, 
VECTOR W Xx 


Y”?é 
COORDENADAS X,Y 7-1 


3 ? 


EL VECTOR SUMA ES VU W=(-7 , 29 ) 
EL VECTOR DIFERENCIA ES V-W=( (19,15) 
EL PRODUCTO ESCALAR ES VO. wW= 76 

EL MODULO DEL VECTOR V ES = 22.803509 
EL MODULO DEL VECTOR YW ES = 14.764823 


ANGULO QUE FORMAN LOS VECTORES V Y W 

ANGULO QUE FORMAN EL VECTOR V CON EL EJE 
ANGULO QUE FORMAN EL VECTOR V CON EL EJE 
ANGULO QUE FORMAN EL VECTOR W CON EL EJE 
ANGULO QUE FORMAN EL VECTOR W CON EL EJE 


76 GRADOS, 37 MINUTOS, 15 SEGUNDOS 
74 GRADOS, 44 MINUTOS, 41 SEGUNDOS 
15 GRADOS. 15 MINUTOS, 18 SEGUNDOS 
151 GRADOS, 41 MINUTOS, 57 SEGUNDOS 
ól GRADOS, 41 MINUTOS, 57? SEGUNDOS 


XX XXX 


Le Dados los vectores v = (32,-31) y W = (17,-11). 
So >> mn — > —- 
Hallar v+w, v.w, módulo de v, módulo de w, ángulo formado por v y 
W y los ángulos formados por los vectores Y y w con cada uno de los ejes 
cartesianos. 


SOLUCION :: 


VECTOR V : COORDENADAS X,Y ? 32 -31 
VECTOR W : COORDENADAS X,Y ? 17” =114 


EL VECTOR SUMA ES VO 4 W=( 49 ,-42 ) 
EL VECTOR DIFERENCIA ES V- W=( 15 ,-20 ) 
EL PRODUCTO ESCALAR ES VO. W= 885 

EL MODULO DEL VECTOR V ES = 494.553339 
EL MODULO DEL VECTOR YW ES = 20.248457 


ANGULO QUE FORMAN LOS VECTORES V Y W 
ANGULO QUE FORMAN EL VECTOR V CON EL EJE 44 GRADOS, 5 MINUTOS, 2ó SEGUNDOS 

ANGULO QUE FORMAN EL VECTOR V CON EL EJE 134 GRADOS, 5 MINUTOS, 26 SEGUNDOS 
ANGULO QUE FORMAN EL VECTOR W CON EL EJE Xx : 32 GRADOS, 54 MINUTOS, 18 SEGUNDOS 
ANGULO QUE FORMAN EL VECTOR W CON EL EJE Y : 122 GRADOS, 54 MINUTOS, 18 SEGUNDOS 


11 GRADOS, 11 MINUTOS, Y? SEGUNDOS 


XX 


ANGULOS Y BISECTRICES DE RECTAS EN EL 
PLANO AFIN EUCLIDEO 


introducción: 


Este programa sirve para calcular el ángulo formado por dos rectas 
y las ecuaciones de las bisectrices de los ángulos formados por las dos 


rectas. 


También el programa informa cuando las rectas son paralelas, y per 
pendiculares. 


Los coeficientes de las ecuaciones de las rectas han sido redondea 


das hasta la segunda cifra decimal. 


listado del programa: 


10 REM III 


20 REM 

30 REM ANGULO DE DOS RECTAS 

40 REM 

50 REM BISECTRICES DE Los ANGULOS 

60 REM 

70 REM FORMADOS POR DOS RECTAS 

80 REM 

PO REM III III 
100 PRINT 

110 PRINT "SEA LA RECTA RP: A X+BY+ci= 0” 


120 PRINT "INTRODUZCA LOS COEFICIENTES A, B. C *;5 
130 INPUT A1,B1,C1 

140 PRINT 

150 PRINT "Y LA RECTA RP”: A'X + B'Y + C*= O” 
160 PRINT "INTRODUZCA LOS COEFICIENTES Ar. B”, C” "5 
170 INPUT A2,B2,C2 

130 PRINT 

190 PRINT 

200 IF A1XB2=A2X*B1 THEN GOTO 380 

210 MI=SOR(AIXA1+B1XB1) 

220 M2=SQR(AZXAA2+B2XB2) 

230 P=A1XA2+B1XB2 

240 IF P=0 THEN GOTO 360 

250 D=P/(M1XM2) 

260 K=57.29577951 

270 Z=ACS(D) XK 

280 G=INT (2) 

290 M=INT((Z-G)*X60) 

300 SS=INT(( (Z-G)X60-M)%X60) 
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310 G$="GRADOS, ” 

320 M$="MINUTOS," 

330 SS$="SEGUNDOS” 

340 PRINT "ANGULO FORMADO POR R Y R”? : "356;G6%;M3M$;55;5SS% 
350 GOTO 390 

360 PRINT "LAS RECTAS R Y R?. SON PERPENDICULARES ” 

370 GOTO 390 

380 PRINT "LAS RECTAS R Y R”?. SON PARALELAS" 

389 REM - CALCULO DE LAS ECUACIONES DE LAS BISECTRICES - 
390 AS5S=(A1/M1-A2/M2) : A3=10X INT (AS*100+.5)/100 

400 BS5=(B1/M1-B2/M2):B3=10* INT (BS*x100+.5)/100 

410 C5=1(C1/M1-C2/M2) : C3=10*XINT(CSX1O00O+.5)/100 

420 Aé=(A1/M1+A2/M2):A4=10X* INT (A6Xx100+.5)/100 

430 Bé=(B1/M1+B2/M2):BE4=10X*X INT (B6*100+.5)/100 

440 Cé=(C1/M1+C2/M2):C4=10XINT(Có6*x100+.5)/100 

450 PRINT 

460 PRINT 

470 PRINT "LAS ECUACIONES DE LAS BISECTRICES SON :” 
480 PRINT 

490 PRINT "BISECTRIZ B1  :"3A33"X +"3B33"Y +"3C35" 
500 PRINT 

510 PRINT "BISECTRIZ BZ :"3A93"X +"3B49;3"Y +";C4;3" = O" 
520 END 


' 
o 
z 


ejercicios resueltos: 


d. Hallar el ángulo y las bisectrices de los ángulos formados por las 
rectas de ecuaciones: 2x + 6y + 1 = 0 y X + 3y+9=0 
SOLUCION: 


SEA LA RECTA RU: AX + BY+C=0 
INTRODUZCA LOS COEFICIENTES A. B, C 7? 2 6 1 
Y LA RECTA RR”: AX + B'Y + C*= O 
INTRODUZCA LOS COEFICIENTES A". B”, C*? 1 3 9 


LAS RECTAS R Y R”. SON PARALELAS 


Lie Hallar el ángulo y las bisectrices de los ángulos formados por las 
rectas de ecuaciones: 6x + 3y +8 = 0 Yy -2x+ 5y+1=0 
SOLUCION: 


SEA LA RECTA RU: AX+BY+C=0 
INTRODUZCA LOS COEFICIENTES A, B, C?6 3 8 
Y: LA RECTA RR”: AX + B"Y + C*= 0 
INTRODUZCA LOS COEFICIENTES A*.-B*, C*?-2 5 1 


ANGULO FORMADO POR R Y R” : 85 GRADOS, 14 MINUTOS, 10 SEGUNDOS” 
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LAS ECUACIONES DE LAS BISECTRICES SON : 


ñ 
o 


BISECTRIZ Bi : 12.7? X +-4.8 Y + 10.1 


" 
o 


BISECTRIZ B2 : 5.2 X + 13,8 Y + 13.8 


3. Hallar el ángulo y las bisectrices de los ángulos formados por las 
14x + dy +3 = 0 


rectas de ecuaciones: 2x - 7y + 1 = 0 y 


SOLUCION: 


SEA LA RECTA R:: AX +BY4C=0 

INTRODUZCA LOS COEFICIENTES A, B, C ? 2 =2 1 
Ye LA RECTA RR”: AX + B"Y + C*'= 0 

INTRODUZCA LOS COEFICIENTES A, B', C”? 14 gq 3 


LAS RECTAS R Y R?. SON PERPENDICULARES 


LAS ECUACIONES DE LAS BISECTRICES SON : 
BISECTRIZ Bi  :-6.9 X +-12.4 Y +-.7 =0 


BISECTRIZ B2 : 12.9 X +-6.9 Y + 3.9 =0 


14x+4y+3 = 0 / 


DISTANCIAS EN EL PLANO AFIN EUCLIDEO 


introducción: 


Este programa permite calcular las siguientes distancias en el pla 


no afín euclideo. 


1.- Distancia entre dos puntos. 
2.- Distancia de un punto a una recta. 
3.- Distancia entre rectas. 


Hay que tener en cuenta que se entiende como distancia, la mínima 


absoluta, 


de manera que la distancia entre rectas secantes es cero. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
189 
190 
200 
210 
219 
220 
230 
240 
250 
260 
270 


REM IRRADIA 


REM 
REM 
REM 
REM 
REM 


CALCULO DE DISTANCIAS E N 


EN EE PLANO AFIN EUCLIDEO 


REM RRA 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


PRINT 
INPUT 
REM - 


PRINT: 


"ESTE PROGRAMA PERMITE CALCULAR LAS SIGUIENTES DISTANCIAS" 


"1,- DISTANCIA ENTRE DOS PUNTOS " 

"2.- DISTANCIA DE UN PUNTO A UNA RECTA” 
"3.- DISTANCIA ENTRE DOS RECTAS" 

PRINT 


"SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE"; 
L 

BORRAR PANTALLA - 

PRINT 


U$="UNIDADES LINEALES" 
ON L GOTO 219,319,4979 


REM - 
PRINT 
INPUT 
PRINT 
PRINT 
INPUT 
PRINT 


DISTANCIA ENTRE DOS PUNTOS DEL PLANO AFIN EUCLIDEO - 
"INTRODUZCA LAS COORDENADAS X.Y DEL PUNTO P"; 
XO, YO 


" INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO Q”; 
xX1,Y1 
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280 PRINT 

290 D=SQR ( (X1-X0)X(X1-X0)+(Y1-YO)X*(Y1-YO)) 

300 PRINT "LA DISTANCIA ENTRE LOS PUNTOS P Y Q ES”3D;UsS 

310 GOTO 160 

319 REM - DISTANCIA DE UN PUNTO A UNA RECTA EN EL PLANO AFIN EUCLIDEO - 
320 PRINT "INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO P”"; 

330 INPUT XO,YO 

350 PRINT "SEA LA RECTA R : AX 4 BY + C = O” 

360 PRINT "INTRODUZCA LOS COEFICIENTES A,B,C”; 

370 INPUT A,B,C 

380 PRINT 

390 PRINT 

300 E=AXXO+BXYO+C 

410 M=SQR(AXA+BXB) 

420 IF E=0 THEN GOTO 460 

930 D=ABS(E/M) 

49409 PRINT "LA DISTANCIA DEL PUNTO P A LA RECTA R ES = "3D;Us 

450 GOTO 160 

460 PRINT "LA DISTANCIA DEL PUNTO P A LA RECTA R ES O, PUES P PERTENECE A R” 
470 GOTO 160 

479 REM - DISTANCIA ENTRE DOS RECTAS - 

480 PRINT "SEA LA RECTA R : Al X + Bl Y + C1 = O” 
490 PRINT "INTRODUZCA LOS COEFICIENTES A1,B1,C1"; 
500 INPUT A1,B1,C1 

S10 PRINT 

520 PRINT "Y LA RECTA R” : A2 X + B2 Y + C2 = O” 
530 PRINT "INTRODUZCA LOS COEFICIENTES A2,B2,C2";5 
540 INPUT A2,B2,C2 

550 PRINT:PRINT 

560 F=A1XB2-A2XB1 

570 IF Fx>0 THEN GOTO 660 

530 mM1=SQR(IALAAL1+B1XB1) 

590 M2=SQR (AZXA2+B2XB2) 

600 Di=ABS(C1/M1) 

£10 D2=ABS(C2/M2) 

620 D=ABS(D1-D2) 

é£30 IF D=0 THEN 680 

630 PRINT "LA DISTANCIA ENTRE LAS RECTAS R Y R” ES 
650 GOTO 160 

660 PRINT "LA DISTANCIA ENTRE LAS RECTAS R Y R” ES 
670 GOTO 160 

630 PRINT "LA DISTANCIA ES O LAS RECTAS R Y R” SON COINCIDENTES" 
670 GOTO 160 

700 END 


"3D3Us$ 


O. LAS RECTAS SON SECANTES" 


ejercicios resueltos: 
1. Hallar la distancia entre los puntos: AA y Q(1,-5). 
SOLUCION: 


INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO P?-2 3 


INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO Q? 1 =3 


LA DISTANCIA ENTRE LOS PUNTOS P Y Q ES 8.5440037 UNIDADES LINEALES 
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ze Hallar la distancia del punto P(2,5) a la recta x - 3y + 9= 0 
SOLUCION: 


INTRODUZCA LAS COORDENADAS X,Y DEL PUNTO P? 2 5 

SEA LA RECTAR : AX + BY +C=0 

INTRODUZCA LOS COEFICIENTES A,B,C? 1 -3 9 

LA DISTANCIA DEL PUNTO P A LA RECTA RES = 1.2649111 UNIDADES LINEALES 


3. Hallar la distancia entre las rectas: 2x+5y+8 = 0 y 3x+y-2 = 0. 
SOLUCION: 


SEA LA RECTA R : Al X + Bl Y + C1 = O 


INTRODUZCA LOS COEFICIENTES A1,B1,C17? 2 5 8 
Y LA RECTA R” : A2 X + B2 Y + C2 = O 
INTRODUZCA LOS COEFICIENTES A2,B2,C27? 3 1 “2 


LA DISTANCIA ENTRE LAS RECTAS R Y R”? ES = O, LAS RECTAS SON SECANTES 


4. Hallar la distancia entre las rectas: 2x-3y+7 
SOLUCION: 


O y 4x-6y+3 = 0 


SEA LA RECTA R : Al X + B1 Y + C1 = O 


INTRODUZCA LOS COEFICIENTES A1,B1,C1? 2 -3 ? 

Y LA RECTA R”? : A2 X + B2 Y +4 C2= O 

INTRODUZCA LOS COEFICIENTES A2,B2,C2? 4 =é 3 

LA DISTANCIA ENTRE LAS RECTAS R Y R? ES =  1.5254255 UNIDADES LINEALES 


2x-3y+7=0 


AREAS EN EL PLANO AFIN EUCLIDEO 


introducción: 


El presente programa permi 


te calcular el área de un polígono en 


función de las coordenadas de sus vértices. El procedimiento seguido es 


la llamada fórmula de Gauss. 


Hay que tener en cuenta pa 


siguientes observaciones: 


1%) El programa no es váli 


ra la aplicación de este programa las 


do (por no serlo la fdrmula de Gauss) 


si el perímetro se corta a si mismo. 


2%) Los vértices se han de ir introduciendo recorriendo el perí 


metro en cualquiera de los dos sentidos. 


listado del programa: 


10 REM 2444800020029 


20 
30 
40 
50 
60 
70 
80 
90 


100 


REM 
REM AREA 


REM 


DE UN POLIGONO 


REM EN FUNCION DE LAS COORDENADAS 


REM 
REM DE sus VERTICES 


REM 
REM RNA 


PRINT 


110 PRINT "NUMERO DE LADOS DEL POLIGONO"; 


120 
130 
140 
150 
160 
155 
169 
170 
180 
190 
200 
210 
220 
23 


240 


INPUT N 

DIM X(N+1),Y(N+1) 

U$="UNIDADES CUADRADAS” 

PRINT 

FOR J=1 TO N 

REI - INTRODUZCA LAS COORDENADAS 
REM - DE RECORRIDO DEL POLIGONO 
PRINT "COORDENADAS DEL VERTICE” 
INPUT X(J),Y(J) 

NEXT J 

X(N+1)=X (1) 

Y(N+1)=Y(1) 

A=0 

FOR J=1 TON 

AA+ (X(J)+4X(J+1)I)XA(Y(J)-Y(J+1)) 


DE LOS VERTICES EN UNO DE LOS SENTIDOS - 


$ 5 
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AAA ICM AAA 


250 NEXT J 

260 S=ABS(A)/2 

270 PRINT 

280 PRINT 

290 PRINT "EL AREA DEL POLIGONO DADO ES =";S3;U$ 


300 END 


ejercicios resueltos: 


E, Calcular el área de un polígono de 8 lados, siendo las coorde- 
nadas de sus vertices A(-2,4); B(-1,1); C(0,0); D(2,1); E(4,5); F (3,7); 
G(1,9) y H(0,8). á 
SOLUCION: 


(1,9) 


H(0,8) 

NUMERO DE LADOS DEL POLIGONO? 8 
F(3,7) 

COORDENADAS DEL VERTICE 1 ?-2 4 
COORDENADAS DEL VERTICE 2 ?-1 1 
COORDENADAS DEL VERTICE 3 ? O 0) 
COORDENADAS DEL VERTICE 4 ? 2 1 4 
COORDENADAS DEL VERTICE S ? 4 5 A(=2, 1. 
COORDENADAS DEL VERTICE 6 ? 3 ? 
COORDENADAS DEL VERTICE 7? ? 1 9 
COORDENADAS DEL VERTICE 8 ? O 8 
EL AREA DEL POLIGONO DADO ES = 32.5 UNIDADES CUADRADAS D(2,1) 


-—————_—_—_—_—_—_—_—_—_ 


—_——_——— 
da 


y Calcular el área de un polígono de 4 lados siendo las coordena- 
das de sus vertices A(1,2); B(3,4); C(2,7) y E(0,3). 
SOLUCION: 
| 62,1) 
NUMERO DE LADOS DEL POLIGONO? 4 


COORDENADAS DEL VERTICE 
COORDENADAS DEL VERTICE 
COORDENADAS DEL VERTICE 
COORDENADAS DEL VERTICE 


bh UN rr 
AS] 
ONdWr 
YJanmN 


B(3,4) 


EL AREA DEL POLIGONO DADO ES = ? UNIDADES CUADRADAS E(0,3)* 


CALCULO DE PUNTOS NOTABLES EN UN TRIANGULO 


introducción: 


Este interesante programa calcula, a partir de las coordenadas de 
los vértices de un triángulo lo siguiente: 

1.- Los lados 

2.- Los ángulos 

3.- Las coordenadas del baricentro 

4.- Las coordenadas del incentro 

5.- Las coordenadas del ortocentro 

6.- Las coordenadas del circuncentro 

7.- Las cordenadas de los exincentros 

8.- Las coordenadas del centro de la circunferencia de 
Feuerbach. 

Se llama circunferencia de Feuerbach a la circunscrita al triángu 
lo órtico (triángulo que tiene por vértices los pies de las alturas del 
triángulo inicial, no rectángulo) 

Esta circunferencia se llama de los nueve puntos, por pasar por los 
tres pies de las alturas, por los puntos medios de los 3 lados y por los 
puntos medios de los segmentos de altura comprendida entre cada vertice y 


el ortocentro. 
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listado del programa: 


10 

20 

30 

40 

50 

60 

70 

go 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
280 
270 
300 
310 
320 
330 
340 
250 
360 
370 
380 
390 
300 
410 
420 
430 
440 
450 
460 
3470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


REM RIIIE 
REM 
REM CALCULO DE LOS LADOS, LOS ANGULOS, EL BARICENTRO, EL INCENTRO, 
REM 
REM EL ORTOCENTRO, EL CIRCUNCENTRO, LOS EXINCENTROS, 
REM 
REM Y EL CENTRO DE LA CIRCUNFERENCIA DE FEUERBACH, DE UN TRIANGULO 
REM 
REM IRC IA 
PRINT 
PRINT "INTRODUZCA LAS COORDENADAS X1,Y1 DEL PUNTO A"; 
INPUT X1,Y1 
PRINT 
PRINT "INTRODUZCA LAS COORDENADAS X2.Y2 DEL PUNTO B"; 
INPUT Xx2,Y2 
PRINT 
PRINT "INTRODUZCA LAS COORDENADAS X3,Y3 DEL PUNTO C"; 
INPUT X3,Y3 
A=SOR ((X3-X2)X(XI-X2) + (Y3-Y2)X(Y3-Y2)) 
B=SQR ((X3-X1)X(X3-X1)+(Y3-Y1)*(Y3-Y1)) 
C=SOR ( (X2-X1)X(X2-X1)+(Y2-Y1)X(Y2-Y1)) 
X=ACS(((XI-X1)X(X2Z2-X1)+ (Y3-Y1)X(Y2-Y1))/(BX*C)) 
Y=ACS (((XI-X2)XK(X1-X2) + (Y3-Y2)X(Y1-Y2))/(A*XC)) 
Z=ACS(((X2Z2-X3)R(X1-X3) + (Y2-Y3)X(Y1-Y3))/(A*XB)) 
XG=(X1+X24+X3)/3 
YG=(Y14Y2+Y3)/3 
XI=(AXX1+BXX24+C0XX3) / (A+B+C) 
YI=(AXY1+BXYZ+CXY3)/(A+B+C) 
XO=(X1XTAN (X) +X2XTAN(Y) +X3IXTAN(Z))/(TAN(X)+TAN(Y)+TAN(Z)) 
YO=(YIXTAN(X) +YZXTAN(Y)+Y3IXTAN(Z))/(TAN(X)+TAN(Y)4TAN(Z)) 
XC=((X2+X3)%TAN(X) + (X3+X1)%TAN(Y) + (X1+X2) ETAN(Z))/(2%(TAN(X) +TAN(Y)+TAN(Z))) 
YC=((Y2+YIZI)KTAN(X) + (VI+FVYLIRTAN (Y) + (114 VZ)KTAN(Z))/(2OTAN(X) +TAN(Y)+TAN(Z))) 
XA=(-AXX1+BXX2+C%XX3) / (-A+B+C) 
YA=(-AXY1+BXYZ+CXY3)/ (-A+B+C) 
XAB=(AXX1 -BXXZ+CORX)/ (A-B+C) 
YB=(AFY1-BXY2Z4CXVY3)/'(A-B+C) 
XD=(AXX1+BXX2-CXX3)/(A+B-C) 
YD=(AXV1+BXYZ-CXY3)/(A+B-C) 
XF=S(X14M24+X3-XC)/2 
YF=(V14Y24+Y3-YC)/2 
PRINT 
PRINT 
PRINT 
UL$="UNIDADES LINEALES” 
R$="RADIANES" 
PRINT "LADO a 
PRINT 
PRINT "LADO b 
PRINT 
PRINT "LADO ce ="3CjUL$ 
PRINT 
PRINT "ANGULO A 
PRINT 
PRINT "ANGULO B =";Y;Rs 
PRINT 
PRINT "ANGULO C 
PRINT il 
PRINT “COORDENADAS DEL BARICENTRO, G ("5XG5","5YG53")" 
PRINT 
PRINT "COORDENADAS DEL INCENTRO, AS ID 


"3AjULS 


"3B;ULS 


"3X3RS 


"3Z Rs 


610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
2720 
730 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
END 
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"COORDENADAS DEL ORTOCENTRO, 


"COORDENADAS DEL CIRCUNCENTRO, 


"EXINCENTRO CORRESPONDIENTE AL 


"EXINCENTRO CORRESPONDIENTE AL 


"EXINCENTRO CORRESPONDIENTE AL 


ANGULO A, EXA ("3XA53"."3YA5") 


ANGULO B, EXB ("3XB;3","53YB 


ANGULO C, EXC. ("5XD3”,"5YD 


"CENTRO DE LA CIRCUNFERENCIA DE FEUEREACH, F ("53XF3","53YF 


ejercicios resueltos: 


Hallar los lados, los ángulos, 


el baricentro, 


de Dado el triángulo de vértices A(2,-2), B(0,4) y C(4,2). 


el incentro, 


239 


el or- 


tocentro, el circuncentro, los exincentros y el centro de la circunferen 


cia de Feuerbach,. 


SOLUCION: 


INTRODUZCA LAS COORDENADAS X1,Y1 DEL PUNTO A? 2 =e 
INTRODUZCA LAS COORDENADAS X2,Y2 DEL PUNTO B? O 4 
INTRODUZCA LAS COORDENADAS X3,Y3 DEL PUNTO C? 4 2 
LADO a = 4.472136 UNIDADES LINEALES 

LADO b = 4.472136 UNIDADES LINEALES 

LADO c = 6.3245553 UNIDADES LINEALES 

ANGULO A = .?853981é6 RADIANES 

ANGULO E = .?853981é6 RADIANES 

ANGULO C = 1.5707963 RADIANES 


COORDENADAS DEL BARICENTRO, 


COORDENADAS DEL INCENTRO, 


COORDENADAS DEL ORTOCENTRO, 


COORDENADAS DEL CIRCUNCENTRO, 


EXINCENTRO CORRESPONDIENTE AL 


EXINCENTRO CORRESPONDIENTE AL 


EXINCENTRO CORRESPONDIENTE AL 


ANGULO A, 


ANGULO Bi, 


ANGULO C, 


EXC 


CENTRO DE LA CIRCUNFERENCIA DE FEUERBACH, F 


(2. 1.3333333 ) 


( 2.2426407 , 1.4142136 


( 2.5857864 , 6.2426407 
( 5.4142136 ,-2.2426407 
(-6.2426407 ,-1.4142136 


(25,1.5) 


240 PLANO EUCLIDEO 


e Dado el triángulo de vértices A(0,0), B(6,0) y C(-2,3). 
Hallar los lados, los ángulos, el baricentro, el incentro, el orto 


centro, el circuncentro, los exincentros y el centro de la circunferencia 


de Feuerbach. 
SOLUCION: 


INTRODUZCA LAS COORDENADAS X1,Yi1 DEL PUNTO A? O lo) 


INTRODUZCA LAS COORDENADAS X2,Y2 DEL PUNTO B”? 6 0) 


UU 


INTRODUZCA LAS COORDENADAS X3,Y3 DEL PUNTO C?-2 


LADO a = 8.5440037? UNIDADES LINEALES 
LADO b = 3.6055513 UNIDADES LINEALES 
LADO < = 6 UNIDADES LINEALES 


ANGULO A = 2.1587989 RADIANES 


ANGULO B = .3535877067 RADIANES 

ANGULO € = .ó62402305 RADIANES 

COORDENADAS DEL BARICENTRO, G ( 1.3333333 , 1 ) 
CCORDENADAS DEL INCENTRO, 1 ( .53077377 , .991759835 ) 
COCRDENADAS DEL ORTOCENTRO, O (-2 1-S.3333333 ) 
COORDENADAS DEL CIRCUNCENTRO, CC 13, 4.1666667 ) 


EXINCENTRO CORRESPONDIENTE AL ANGULO A, EXA ( 9.07477753 , 16.956377 ) 
XINCENTRO CORRESPONDIENTE AL ANGULO B, EXB (-3.07472773 , 1.645571 ) 
EXINCENTRO CORRESPONDIENTE AL ANGULO C, EXC ( 5.4692262 ,-2.9270411 ) 


CENTRO DE LA CIRCUNFERENCIA DE FEUERBACH, F ( (.5 ¿-.58333333 ) 


RESOLUCION DE TRIANGULOS RECTANGULOS 


introducción: 


Este programa permite resolver triángulos rectángulos en los si- 


guientes casos: 


1.- Conocidos un ángulo agudo y la hipotenusa. 
2.- Conocidos un ángulo agudo y un cateto. 

3.- Conocidos la hipotenusa y un cateto. 

4.- Conocidos los dos catetos. 


Los ángulos se obtienen en grados, minutos y segundos debido a la 


subrutina que se inicia en la linea 849. 


listado del programa: 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
179 
120 
190 
200 
210 
220 
229 
230 
240 
250 
260 
270 
280 


REM 2900000002202 
REM 


REM RESOCUCUCION DE TRIANGULOS 
REM 

REM RECTANGULOS 

REM 


REM IRRRRRIRORRRRORRRR2099023309020922209020009209090009000N09020N00RRRORIRIOOIORAA A 
PRINT 

PRINT "ESTE PROGRAMA PERMITE RESOLVER TRIANGULOS RECTANGULOS” 
PRINT 

PRINT "1.- CONOCIDOS UN ANGULO AGUDO Y LA HIPOTENUSA" 

PRINT "2.- CONOCIDOS UN ANGULO AGUDO Y UN CATETO” 

PRINT "3.- CONOCIDOS LA HIPOTENUSA Y UN CATETO" 

PRINT "4.- COMOCIDOS LOS DOS CATETOS” 

PRINT:PRINT:PRINT 

REM'- BORRAR PANTALLA - 

UL$="UNIDADES LINEALES” 

PRINT "SEGUN EL CASO QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE"; 
INPUT L 

PRINT:PRINT 

ON L GOTO.  229,349,459,599 

REM - CONOCIDOS UN ANGULO AGUDO Y LA HIPOTENUSA - 

GOSUB 739 

PRINT "HIPOTENUSA a ="; 

INPUT A 

B=AXCOSI1R) 

C=AXSIN(R) 

GOSUB 849 


242 


290 
300 
310 
320 
330 
399 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
459 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
599 
600 
610 
620 
ó630 
640 
650 
660 
670 
630 
690 
700 
710 
720 
730 
239 
740 
750 
760 
7270 
780 
790 
800 
810 
e820 
830 
840 
849 
850 
860 
870 
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PRINT:PRINT 


PRINT "ANGULO B ="361;6$;M1;3M$;S1;3% 
PRINT "CATETO b =";3B;UL$ 

PRINT "CATETO c ="3CjULs 

GOTO 170 

REM - CONOCIDOS UN ANGULO AGUDO Y UN CATETO - 


GOSUB 739 

PRINT "CATETO b ="; 

INPUT B 

GOSUB 849 

PRINT :PRINT Ñ 

PRINT "ANGULO B ="3G1;6$;3M1;M$;S1;5S$5 
A=B/COS(R) 
C=BXTAN(R) 
PRINT "HIPOTENUSA a =” 
PRINT "CATETO c 
GOTO 170 

REM - CONOCIDOS HIPOTENUSA Y UN CATETO - 
PRINT "HIPOTENUSA a ="; 

INPUT A 

PRINT "CATETO b 
INPUT B 
C=SQR(AXA-BXB) 
PRINT:PRINT 

PRINT "CATETO c ="3CjUL$ 
Y=ACS(B/A) 

GOSUB 860 

PRINT "ANGULO Cc 
R=Y 

GOSUB 849 
PRINT "ANGULO 
GOTO 170 

REM -CONOCIDOS LOS DOS CATETOS - 
PRINT "CATETO b ="; 

INPUT B 

PRINT "CATETO c=" 

INPUT C 

A=SQOR (BX*B+CXC) 
Y=ATN(C/B) 

GOSUB 82860 
PRINT:PRINT 

PRINT "HIPOTENUSA 
PRINT "ANGULO 

R=Y 

GOSUB 849 

PRINT "ANGULO B 
GOTO 170 

REM - SUBRUTINA PARA PASAR A RADIANES - 

PRINT "INTRODUZCA LOS GRADOS, MINUTOS Y SEGUNDOS DEL 
PRINT "GRADOS ="; 

INPUT G 

PRINT "MINUTOS ="; 

INPUT M 

PRINT "SEGUNDOS =>, 

INPUT S 

U=G+M/60+S5/3600 

V=INT(U/360) 

R=UX.01745329-VX2XP 1 

RETURN 


"361;6$;M1;3M$;S1;5S5$ 


Las] 
Ú 


"361;6$;M1;M$;S1;5S5 


oy 
Ú 


"361;6$3M1;M$;3S1;3S3$ 


"361;6$;3M1;3M$;S135S$ 


ANGULO" 


REM - SUBRUTINA PARA PASAR A GRADOS, MINUTOS Y SEGUNDOS - 


Y=1.570796326794-R 
K=57.29577951 
Z=YXK 
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830 G1=INT(Z) 

390 Mi=INT((Z-G1)X60) 

900 S1=INT(((Z-G1)X60-M1)*X60) 
910 G$6="GRADOS, " 

920 M$="MINUTOS, " 

930 S$="SEGUNDOS" 

940 RETURN 

950 END 


ejercicios resueltos: 


je En un triángulo rectángulo ABC, se conoce la hipotenusa a = 10 y el 
ángulo C = 40%23' 12". Resolver el triángulo. 
SOLUCION: 


INTRODUZCA LOS GRADOS, MINUTOS Y SEGUNDOS DEL ANGULO 


GRADOS =? 40 

MINUTOS =?2 23 

SEGUNDOS => 12 

HIPOTENUSA a =? 10 

ANGULAU B = 49 GRADOS, 36 MINUTOS, 48 SEGUNDOS 


CATETO = 7.6168918 UNIDADES LINEALES 
CATETO c = 6.4794259 UNIDADES LINEALES 


U 


Zi En un triángulo rectángulo ABC,se conoce el lado b = 107.4 y el án 
gulo C = 53%23' 47". Resolver el triángulo. 
SOLUCION: 


A B 
INTRODUZCA LOS GRADOS, MINUTOS Y SEGUNDOS DEL ANGULO 

GRADOS =? 53 

MINUTOS => 23 

SEGUNDOS =2 47 % 

CATETAO b =? 107.4 

ANGULO B = 36 GRADOS, 36 MINUTOS, 13 SEGUNDOS A =53%23'47" 


HIPOTENUSA 130.11806 UNIDADES LINEALES 
CATETO E 144.59514 UNIDADES LINEALES 


w 
" 


O Los catetos de un triángulo rectángulo valen b=8 y c=24. Re- 
sover el triángulo. 
SOLUCION: 


CATETO b =? 8 
CATETO ce =? 2 


HIPOTENUSA a = 25.298221 
ANGULO 71 GRADOS, 33 MINUTOS, 54 SEGUNDOS py 
ANGULO 18 GRADOS, 26 MINUTOS, S SEGUNDOS 


0 
A] 


RESOLUCION DE TRIANGULOS CUALESQUIERA 


introducción: 


Este programa sirve para resolver triángulos no rectángulos, en los 
siguientes casos: 
1.- Conocidos un lado y los dos ángulos adyacentes. 
2.- Conocidos dos lados y el ángulo comprendido. 
3.- Conocidos dos lados y el ángulo opuesto a uno de ellos. 
4.- Conocidos los tres lados. 
En los casos 1” y 2% el problema siempre tiene solución y esta es 
única. 
En el caso 3% puede ocurrir que tenga dos soluciones, una o ninguna. 
En el caso 4% el problema tiene solución siempre que la suma de dos 


lados arbitrarios sea menor que el tercero. 


listado del programa: 


10 REM 2880082002022 00290098992929492909N0900N0N20000000RRR0RRDRRRRORDRRORRRORRER 
20 REM 


30 REM RESOLUCION DE TRIANGULOS 
40 REM 

50 REM NO RECTANGULOS 

60 REM 


70 REM 2989898290200 
100 PRINT 

110 PRINT "ESTE PROGRAMA PERMITE RESOLVER TRIANGULOS NO RECTANGULOS :” 

120 PRINT:PRINT 

130 PRINT "CASO 1.- CONOCIDOS UN LADO Y LOS DOS ANGULOS ADYACENTES" 

140 PRINT "CASO 2.- CONOCIDOS DOS LADOS Y EL ANGULO COMPRENDIDO" 

150 PRINT "CASO 3.- CONOCIDOS DOS LADOS Y EL ANGULO OPUESTO A UNO DE ELLOS” 
160 PRINT "CASO 4.- CONOCIDOS LOS TRES LADOS" 

170 PRINT: PRINT: PRINT 

179 REM - BORRAR PANTALLA - 

180 UL$="UNIDADES LINEALES” 

190 Gé$="GRADOS, ":M$="MINUTOS, ":S$="SEGUNDOS” 

200 PRINT "SEGUN EL CASO QUE DESEE,PULSE EL NUMERO QUE LE PRECEDE”; 

210 INPUT O 

220 PRINT:PRINT 

230 ON O GOTO 239,409,589,1119 

239 REM - CONOCIDOS UN LADO Li Y LUS DOS ANGULOS ADYACENTES A2,43 - 

240 PRINT "LADO L1 ="; 
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245 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
409 
910 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
589 
590 
600 
610 
ó20 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
7250 
760 
770 
780 
790 
800 
slo 
820 
830 
840 


INPUT Lai 

PRINT "ANGULO AZ2:"; 

GOSUB 1900 

R2=R 

PRINT "ANGULO A3:"; 

GOSUB 1900 

R3=R 

R4=R2+R3 

GOSUB 3000 

PRINT:PRINT 

PRINT "ANGULO Al = ";36G1;G$;M1;M$;S1;5% 
L2=SIN(R2)XL1/SIN(Y) 
L3=SIN(RI3)XL1/SIN(Y) 

PRINT "LADO L2 ="3L2;UL$ 
PRINT "LADO L3 ="3L3;ULS 


GOTO 170 

REM - CONOCIDOS DOS LADOS L1,L2 Y EL ANGULO COMPRENDIDO A3 - 
PRINT "LADO L1 ="”; 

INPUT Li 

PRINT "LADO L2 ="; 

INPUT LZ 


PRINT "ANGULO A3:”;5 

GOSUB 2000 

R3=R 

L3=SOR (LIXAL1+L2XL2Z-2XL1XL2ZXCOS(R)) 
AL=ACS ( (LIXL1-L2%L2-L3XL3)/ (-2XL2XL3)) 
Y=A1 

GOSUB 3005 

PRINT:PRINT 


PRINT "LADO L3 ="3L3jULS 
PRINT "ANGULO Al ="3G1;6G%$;M1;M3$;S1;5S5 
R4=R34+Y 


GOSUB 3000 

PRINT "ANGULO  A2 ="36G1;G$;M1;MS;S1;S% 
GOTO 170 

REM '- CONOCIDOS DOS LADOS L1,L2 Y EL ANGULO OPUESTO A UNO DE ELLOS 
PRINT "LADO Li =*”j3 

INPUT Li 

PRINT "LADO L2 ="3 

INPUT L2 

PRINT "ANGULO A2:"; 

GOSUB 2000 

PRINT:PRINT:R2=R 

IF(LIiXSIN(R2)/L2)>=1 THEN GOTO 730 
A1=ASN(LIXSIN(R2)/L2) 

Zi=A1l 

22=PI-Al 

IF Z1i+R2X<PI AND Z2+R2<PI THEN GOTO 930 
IF Z1+R2<PI AND Z2+R2>=PI THEN GOTO 840 
IF Z1+R2>=PI AND Z2+R2<PI THEN GOTO 750 
PRINT "EL PROBLEMA NO TIENE SOLUCION" 
GOTO 170 

Y=Z2 

GOSUB 3005 

PRINT "EL ANGULO Ai ="3G1;6$;M1;M$;S1;S5 
R4=R2+Z2 

GOSUB 3000 

PRINT "EL ANGULO A3 ="36G1;6$;M1;M$;S1;S5$ 
L3=SOR (L1XL1+L2XL2-2%L 1L2COS(PI-R4)) 
PRINT "EL LADO L3 ="3L3;ULS 

GOTO 170 

Y=Z1 


A2 
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850 GOSUB 3005 

860 PRINT "EL ANGULO Al ="3G1;G6$;M1;M$;S51355 
870 R4=R2+Z1 

880 GOSUB 3000 

890 PRINT "EL ANGULO A3 ="3G130$3M1;3M$;S15S% 
900 L3=SOR (L1XL1+L2X%L2-2XAL1XL2ZXCOS(PI-R49)) 
910 PRINT "EL LADO L3 ="3L3j3ULS 

920 GOTO 170 

930 PRINT "EL PROBLEMA TIENE DOS SOLUCIONES" 
940 PRINT "SOLUCION 1 :":Y=Z2 

950 GOSUB 3005 

960 PRINT "EL ANGULO Al ="36G13G6$;M1;M$;S1;S5$ 
970 R4=R2+Z2 

980 GOSUB 3000 

990 PRINT "EL ANGULO A3 ="3G1;G6$;M1;M$;S13S$ 
1000 L3=SOR (L1XL1+L2XL2-2XL1%LZXCOS(PI-R4)) 
1010 PRINT "EL LADO L3 ="3L3jULS 

1020 PRINT 

1030 PRINT "SOLUCION 2 :":Y=Z1 

1040 GOSUB 3005 

1050 PRINT "EL ANGULO Al ="36G1;6G$6;M1;3M%;S1;5S% 
1060 R4=R2+Z1 

1070 GOSUB 3000 

1080 PRINT "EL ANGULO A3 ="36G136$;M1;3M$;S1;5S5 
1090 L3=SOR (L1XL1+L2XL2-2XL1X4L2ZCOS(PI-R49)) 
1100 PRINT "EL LADO L3 ="3L3;jULs 

1110 GOTO 170 

1119 REM - CONOCIDOS LOS TRES LADOS L1,L2,L3 - 
1120 PRINT "LADO L1 =*"; 

1130 INPUT Li 

1140 PRINT "LADO L2 ="; 

1150 INPUT L2 

1160 PRINT "LADO L3 ="; 


1170 INPUT L3 

1180 A1=ACS((-L1XL1+L2XL2+L3XAL3) / (2%L2%L3) ) 
1190 Y=A1l 

1200 GOSUB 3005 

1210 PRINT:PRINT 


1220 PRINT "ANGULO Al ="361;6$3M1;M$;S1;5S53 
1230 A2=ACS(( L1XL1-L2XL2+L3XL3)/ (2XLIXL)) 
1240 Y=A2 

1250 GOSUB 3005 

1260 PRINT "ANGULO AZ ="3G61;G6$63M1;M$;S1;S$ 
1270 A3=ACS(( L1XL1+L2XL2-L3XL3)/(2XL1XLZ)) 
1280 Y=A3 

1290 GOSUB 3005 

1300 PRINT "ANGULO AS ="3601;6$3M13M$;S1;5$ 
1310 GOTO 170 

1320 END 

1900 PI=3.1415926535897932 

2000 PRINT ” GRADOS G =”; 

2010 INPUT G 

2020 PRINT ” MINUTOS M =*"; 

2030 INPUT M 

2040 PRINT ” SEGUNDOS S ="*; 

2050 INPUT S 

2060 U=G+M/60+S5/3600 

2070 V=INT(U/360) 

2080 R=UX*X.01745329-UX2XP I 

2090 RETURN 

3000 Y=PI-R4 

3003 K=57.29377951 

3010 Z=YXkK 
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3020 G1=INT(Z) 

3030 M1=INT((Z-G1)X60) 

3040 S1=INT(((Z-G1)X60-M1)X60) 
3050 RETURN 


ejercicios resueltos: 


E esslvts un triángulo, tal que a 
SOLUCION: 


il 
09) 
> 
a] 
[e.] 
.. 


B=105% y C= 3847" 


LADO L1 =? 3.78 
ANGULO A2: GRADOS G =? 105 
MINUTOS M =7? O = o 
SEGUNDOS S =? O pS 
ANGULO A3: GRADOS G =7? 38 
MINUTOS M =? 47 
SEGUNDOS S =? O 
ANGULO Al = 36 GRADOS, 13 MINUTOS, O SEGUNDOS PO 7 


LADO L2 
LADO L3 


6.1796692 UNIDADES LINEALES 
4.0073495 UNIDADES LINEALES 


Ze Sabiendo que a = 10,b= 7 y C= 30% . Resolver el triángulo. 
SOLUCION: 


LADO L1 =? 10 

LADO L2 =2?2 ?2 

ANGULO A3: GRADOS G =? 30 b=7 
MINUTOS M =? O 


SEGUNDOS S =? O 


LADO L3 5.2684379 UNIDADES LINEALES 
ANGULO Al 108 GRADOS, 22 MINUTOS, 7 SEGUNDOS 
ANGULO A2 = 41 GRADOS, 32? MINUTOS, 52 SEGUNDOS 


3: Sabiendo que a = 60, b= 40 y B= 42%12' 45". Resolver el trián 
gulo. 
SOLUCION: : 


LADO L1 =? 60 
LADO L2 =? 40 
ANGULO A2: GRADOS G =7? 42 


MINUTOS M =? 12 
SEGUNDOS S =? 45 


EL PROBLEMA NO TIENE SOLUCION 


CIRCUNFERENCIA 


introducción: 


Este programa permite determinar lo siguiente: 


Li = 
Lo 
3. 


Ecuación de la circunferencia conocidos el centro y el radio. 


Ecuación de la circunferencia conocidos un punto y el centro. 


Ecuación de la circunferencia conocidos los extremos de un dia 


metro. 


Ecuación de la circunferencia conocidos el centro y una recta 


tangente. 


Ecuación de la circunferencia que pasa por tres puntos no ali 


neados. 


Centro y radio de una circunferencia conocida su ecuación. 


Posiciones relativas de una circunferencia y una recta. 


Tangente y normal a una circunferencia en un punto 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
z10 
220 
230 
239 


REM IRRRRRRRRRRRORRRRRRRRRRRRRRRRRRORRRRRRORRRRRRROROAROREORARAOROORRORDORDODODOXAR 


REM 
REM 
REM 
REM 
REM 


ESTUDIO DE LA CIRCUNFERENCIA 


REM 2444000220290 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT 
INPUT 


REM - 


"ESTE PROGRAMA REALIZA LAS SIGUIENTES OPERACIONES :” 

"1i.- EC. DE LA CIRCUNFERENCIA CONOCIDOS EL CENTRO Y EL RADIO” 

"2.- EC. DE LA CIRCUNFERENCIA CONOCIDOS UN PUNTO Y EL CENTRO” 

"3.- EC. DE LA CIRCUNFERENCIA CONOCIDOS LOS EXTREMOS DE UN DIAMETRO” 
"4.- EC.DE LA CIRCUNFERENCIA CONOCIDOS EL CENTRO Y UNA RECTA TANGENTE” 
"5S.- EC. DE LA CIRCUNFERENCIA QUE PASA POR TRES PUNTOS NO ALINEADOS” 
"6.- CENTRO Y RADIO DE UNA CIRCUNFERENCIA CONOCIDA SU ECUACION" 

"2.- POSICIONES RELATIVAS DE UNA CIRCUNFERENCIA Y UNA RECTA" 

"8.- TANGENTE Y NORMAL A UNA CIRCUNFERENCIA EN UN PUNTO” 

¿PRINT 


"SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE”; 


[a] 


BORRAR PANTALLA - 


240 
250 
259 
260 
270 
279 
280 
290 
300 
310 
320 
330 
340 
349 
350 
360 
370 
380 
390 
400 
420 
430 
440 
449 
450 
460 
470 
480 
490 
500 
510 
519 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
679 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
goo 
809 
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PRINT:PRINT:PRINT 

ON O GOTO 259,279,349,449.519,679,809,1069 

REM - EC. CIRCUNFERENCIA CONOCIDOS EL CENTRO Y EL RADIO - 
GOSUB 2000 

GOTO 210 

REM - EC. CIRCUNFERENCIA CONOCIDOS UN PUNTO Y EL CENTRO - 
PRINT "INTRODUZCA LAS COORDENADAS A,B DEL CENTRO C ="; 
INPUT A,B 

PRINT "INTRODUZCA LAS COORDENADAS XO,YO DE UN PUNTO P =" 
INPUT XO,YO 

R=SBR((A-XO)X(A-X0)+(B-YO)X*(B-YO)) 

GOSUB 2050 

GOTO 210 


REM - EC. CIRCUNFERENCIA CONOCIDOS LOS EXTREMOS DE UN DIAMETRO 


PRINT "INTRODUZCA LAS COORDENADAS X0,YO DEL PUNTO P ="; 
INPUT XO,YO 

PRINT "INTRODUZCA LAS COORDENADAS X1,Y1 DEL PUNTO Q ="; 
INPUT X1,Y1 

A=(X0+X1)/2 

B=(YO+Y1)/2 

R=SOR ( (X1-X0)% (X1-X0)+ (Y1-YO)X*(Y1-YO))/2 

GOSUB 2050 

GOTO 210 

REM - EC. CIRCUNFERENCIA CONOCIDOS EL CENTRO Y UNA RECTA 
PRINT "INTRODUZCA LAS COORDENADAS A,B DEL CENTRO C ="; 
INPUT A,B 

PRINT "INTRODUZCA LOS COEFICIENTES DE LA RECTA TANGENTE: 
INPUT M,N,L 

R=ABS (MXA+NXB+L) /SOQR (MXM+NIN) 

GOSUB 2050 

GOTO 210 

REM - EC. CIRCUNFERENCIA QUE PASA POR TRES PUNTOS P,GQ, Y 
PRINT "INTRODUZCA LAS COORDENADAS X0,YO DEL PUNTO P”; 
INPUT XO,YO 

PRINT "INTRODUZCA LAS COORDENADAS X1,Yi DEL PUNTO Q”; 
INPUT X1,Y1 

PRINT "INTRODUZCA LAS COORDENADAS X2,Y2 DEL PUNTO S”; 
INPUT Xx2,Y2 

D=(X1-X0)*(Y2-YO)- (X2-XO0)X(Y1-YO) 


G=(Y2-YO)X(X1XX1+Y1XY1-XOXXO-YOXYO) - (Y1-YO) XA (XZX2Z2+Y2KY2-XOXXO-YOXYO) 
H= (X2-X0)X(X1XX1+Y1XY1-XOX*X0-YOXYO) —- (X1-X0)X(X2%X2+Y2XY2-XOXX0-YOX*YO) 
K1=Y2ZXX1%X (XOXXO+ YOXYO) +XOXY 1H (XZIXZ4YZRYZ) + YOXXZA(X1ANX14V1XY1) 
K2=YOXX1X(XZIXZ+VZRVZ) + XORVZR (XIX VAR 1) AXZ VIA (KXOXXO+YOXYO) 


Kk=K2-K1 
PRINT 


TANGENTE 


Ss 


249 


PRINT "LA ECUACION DE LA CIRCUNFERENCIA QUE PASA POR LOS TRES PUNTOS. ES : 


PRINT Dj3"X"2 +"3D53"Y"2 -"3G653"X +"5H53"Y + "5k5" = O" 
GOTO 210 


REM - CENTRO Y RADIO DE UNA CIRCUNFERENCIA CONOCIDA SU ECUACION 
PRINT "SEA LA CIRCUNFERENCIA DE ECUACION: D X"2 + F Y72 + G X + H Y + K 


PRINT "INTRODUZCA D.F,G,H.K”; 
INPUT D,F,G.,H,.K 
IF D<>F OR (GG+HXH-4XDXK)<=0 THEN GOTO 790 


A=-G/(2%*D) 

B=-H/ (2%XD) 

R=SOR (GXG+HXH-4XDXK) / (2%D) 

PRINT 

PRINT "COORDENADAS DEL CENTRO C ("5A53",.,"53B3")” 

PRINT "VALOR DEL RADIO R ="3R 

GOTO 210 

PRINT "LOS COEFICIENTES DADOS NO SON DE UNA CIRCUNFERENCI 


GOTO 210 


REM - POSICIONES RELATIVAS DE UNA CIRCUNFERENCIA Y UNA RECTA 


A" 


250 CONICAS 


810 PRINT "SEA LA CIRCUNFERENCIA DE ECUACION: D X"“2 + F Y"2+ GX + H Y + K=0" 
820 PRINT "INTRODUZCA D,F.G,H.K”"j 

830 INPUT D,F.G,H.K 

840 PRINT "Y LA RECTA DE ECUACION : MX + N Y + L =0" 

850 PRINT "INTRODUZCA M,N,L"; 

860 INPUT M.N.L 

870 IF D<>F OR (GXG+HXH-4XD*K)<=0 THEN GOTO 1040 

880 U=D+FXMXM/ (NN) 

890 V=(2%FXMKL +GNEN—-HEMEN) / (NN) 

900 W=(LELXF-HELEN+KXENEN) / (NN) 

910 PRINT 

920 J=UXV-4KXUXW 

930 IF J>0 THEN GOTO 1000 

940 IF J=0 THEN GOTO 970 

950 PRINT "LA RECTA ES EXTERIOR A LA CIRCUNFERENCIA" 

960 GOTO 210 

970 X=(-V)/(2KU) 3 Y=(—-MEV+Z%LXU) / (—-Z24UXN) 

980 PRINT "LA RECTA ES TANGENTE A LA CIRCUNFERENCIA EN ("5X3","5Y3")" 
990 GOTO 210 

1000 X1=(-V+SQR(J))/(2XU): Yi=(MÉX1+L)/(-N) 

1010 X2=(-V-SQR(J))/(2XU): YZ=(MÉXZ+L)/(-N) 

1020 PRINT "LA RECTA ES SECANTE A LA CIRCUNFERENCIA EN LOS PUNTOS" 
1030 PRINT "("5X15"."5Y13") Y CRB FG)” 

1040 GOTO 210 

1050 PRINT "LOS COEFICIENTES DADOS NO SON DE UNA CIRCUNFERENCIA" 

1060 GOTO 210 

1069 REM -ECS. DE LA TANGENTE Y LA NORMAL A UNA CIRCUNFERENCIA EN UN PUNTO - 
1070 PRINT "SEA LA CIRCUNFERENCIA DE ECUACION: D X"2 + F Y2+ GX +HY+K=0 
1080 PRINT "INTRODUZCA D,F.G,H.K"; 

1090 INPUT D,F.G,H,K 

1100 PRINT "COORDENADAS DEL PUNTO P QUE PERTENECE A LA CIRCUNFERENCIA"; 
1110 INPUT XO.YO 

1120 U=(DXX0+G/2) 

1130 V=(YOXF+H/2) 

1140 W=(XOXG+YOXH+2XK) /2 

1150 PRINT 

1160 PRINT "LA TANGENTE A LA CIRCUNFERENCIA EN ("53X05","3Y05") ES :" 
1170 PRINT Uj"X +"5Vj"Y +"jWj" = 0” 

1180 PRINT 

1190 PRINT "LA NORMAL A LA CIRCUNFERENCIA EN ("3X05"."3Y05") ES :” 
1200 PRINT Vj"X +"3Uj"Y +"jUXYO-UXXO;" = 0" 

1210 GOTO 210 

1220 END 

2000 REM - SUBRUTINA PARA CALCULAR LA EC. DE UNA CIRCUNFERENCIA - 
2010 PRINT “INTRODUZCA LAS COORDENADAS A,B DEL CENTRO C ="; 

2020 INPUT A,B 

2030 PRINT "INTRODUZCA EL RADIO DE LA CIRCUNFERENCIA R ="; 

2040 INPUT R 

2050 PRINT 

2060 PRINT"LA ECUACION DE LA CIRCUNFERENCIA ES :"; 

2070 PRINT "X"2 +Y72 -"52XA3"X -"52XB;"Y +"¡AxA+BXB-RXR;" = 0" 

2080 RETURN 


ejercicios resueltos: 


| A la ecuación de la circunferencia, de centro el punto C (1,2) 
sabiendo que pasa por el punto (-1,-2). 
SOLUCION: 


J.R.VIZMANOS 251 


INTRODUZCA LAS COORDENADAS A,B DEL CENTRO C =? 1 2 
INTRODUZCA LAS COORDENADAS XO,YO DE UN PUNTO P =?-1 -2 
LA ECUACION DE LA CIRCUNFERENCIA ES :X"2 +Y"2 - 2X - 4 Y +-15 =0 


PA Hallar la ecuación de la circunferencia de centro el punto C(3,2) 
que es tangente a la recta 3x+4y+2 = 0. 
SOLUCION: 
INTRODUZCA LAS COORDENADAS A,B DEL CENTRO C =? 3 2 


INTRODUZCA LOS COEFICIENTES DE LA RECTA TANGENTE: MX + N Y + L =0 
eS 4 2 


LA ECUACION DE LA CIRCUNFERENCIA ES :X"2 +Y"2 - 6 X - 4 Y +-1.499 =0 


3. Hallar la ecuación de la circunferencia que pasa por los puntos 
A(1,0),B(1,-4) y C(3,-2). 
SOLUCION: 


INTRODUZCA LAS COORDENADAS XO,YO DEL PUNTO P? 1 e) 
INTRODUZCA LAS COORDENADAS X1,Y1 DEL PUNTO Q? 1 -4 
INTRODUZCA LAS COORDENADAS X2,Y2 DEL PUNTO S? 3 =2 


LA ECUACION DE LA CIRCUNFERENCIA QUE PASA POR LOS TRES PUNTOS ES : 
3 X*2 + 8 Y*2 - 16 X + 32Y+ 8 =0 


4. Hallar los puntos de intersección de la recta x+2y-3=0 con la cir 
cunferencia x2+y2-3x+4y-3=0 


SOLUCION: 


SEA LA CIRCUNFERENCIA DE ECUACION: D X*2 + F Y72+ Gx +HYo+ kK=0 


INTRODUZCA D,F,G,H,K? 1 1 =3 4 -3 
Y LA RECTA DE ECUACION : MX +NY<+“L=0 
INTRODUZCA M,N,L? 1 2 -3 


LA RECTA ES SECANTE A LA CIRCUNFERENCIA EN LOS PUNTOS 
(4.2 ,-.6 ) Y ¡A TO O, 


S. Hallar la ecuación de la tangente y la normal a la circunferencia 
x24y? -4x+6y-3=0 en el punto P(2,1) 
SOLUCION: 


SEA LA CIRCUNFERENCIA DE ECUACION: D X"2 + F Y72+ GX +HY+K= Le) 


INTRODUZCA D,F,G,H,K? 1 1 -4 6 -3 
COORDENADAS DEL PUNTO P QUE PERTENECE A LA CIRCUNFERENCIA? 2 1 
LA TANGENTE A LA CIRCUNFERENCIA EN ( 2, 1.) ES: 


OX+49Y+4 =0 


LA NORMAL A LA CIRCUNFERENCIA EN ( 2, 1) ES: 
4 xX+0Y+8 =0 


POTENCIA DE UN PUNTO RESPECTO DE UNA 


CIRCUNFERENCIA 


introducción: 


El presente programa permite calcular: 


1.- La potencia de un punto respecto de una circunferencia. 


2.- El eje radical de dos circunferencias. 


3.- El centro radical de tres circunferencias. 


Al calcular la potencia de un punto respecto de la circunferencia 


el programa clasifica los puntos del plano como interiores, exteriores o 


pertenecientes a la circunferencia. 


Al realizar el cálculo del eje radical, si las circunferencias son 


concéntricas, el programa informa de este hecho, pues en ese caso no es- 


ta definido el eje radical. 


Análogamente para el centro radical, en el caso de que las tres 


circunferencias tengan los centros alineados. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
179 
180 
190 
199 


REM RRA REARRIRIRRIRRRRRRIOIRIARIRIAIOIORIIIOIIOIOIAOIOIIIIIAIIIAAIRAAA 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


POTENCIA DE UN PUNTO RESPECTO 


DE UNA CIRCUNFERENCIA 


EJE Y CENTRO RADICAL 


REM IRRADIA 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


PRINT 
INPUT 
REM - 


PRINT: 


"ESTE PROGRAMA REALIZA LAS SIGUIENTES OPERACIONES :" 

"1.- POTENCIA DE UN PUNTO RESPECTO DE UNA CIRCUNFERENCIA" 
"2.- EJE RADICAL DE DOS CIRCUNFERENCIAS" 

"3.- CENTRO RADICAL DE DOS CIRCUNFERENCIAS"” 

PRINT 

"SEGUN LA OPCION QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE”; 
[a] 

BORRAR PANTALLA - 

PRINT:PRINT 


ON O GOTO 199,369,539 


REM - 


POTENCIA DE UN PUNTO RESPECTO DE UNA CIRCUNFERENCIA - 
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200 PRINT "SEA LA CIRCUNFERENCIA DE ECUACION:D X*2 + F Y72 + G X + H Y + K = 0” 
210 PRINT "INTRODUZCA LOS COEFICIENTES D,F,G,H.K”"5 

220 INPUT D,F,G,H,K 

230 PRINT "COORDENADAS XO,YO DEL PUNTO P ="; 

240 INPUT XO,YO 

250 PRINT 

260 Z=DXXOXXO+FXYOXYO+GAXO+HXYO+K 

270 PRINT "LA POTENCIA DE P("3X03","5YO3") RESPECTO DE LA CIRCUNFERENCIA ES ="3Z 
280 PRINT 

290 IF Z>0 THEN GOTO 350 

300 IF Z=0 THEN GOTO 330 

310 PRINT "EL PUNTO P ES INTERIOR A LA CIRCUNFERENCIA” 

320 GOTO 150 

330 PRINT "EL PUNTO P PERTENECE A LA CIRCUNFERENCIA" 

340 GOTO 150 

350 PRINT "EL PUNTO P ES EXTERIOR A LA CIRCUNFERENCIA” 

360 GOTO 150 

369 REM - CALCULO DEL EJE RADICAL DE DOS CIRCUNFERENCIAS - 


370 PRINT "SEA LA CIRCUNFERENCIA DE ECUACION:D1X"2 + F1Y?2 + G1X + H1Y + Ki = O” 
380 PRINT "INTRODUZCA LOS COEFICIENTES D1,F1,G1,H1,K1”; 

390 INPUT D1,F1,G1,H1,Kl1 

3400 PRINT 

410 PRINT "Y LA CIRCUNFERENCIA DE ECUACION:D2X*2 + F2Y*2 + G2X + H2Y + K2 = 0” 
420 PRINT "INTRODUZCA LOS COEFICIENTES D2,F2,G62,H2,K2"; 

430 INPUT D2,F2,G2,H2,K2 

440 PRINT:PRINT 

450 A=(D2XG1-G2XD1)/D1 

460 B=(D2*H1-H2XD1)/D1 

970 C=(D2XKi-K2XD1)/D1 

480 IF A=0 AND B=0 THEN GOTO 520 

490 PRINT "EL EJE RADICAL DE LAS DOS CIRCUNFERENCIAS ES :” 

500 PRINT Aj"X +"j3B53"Y +"3C3" = O" 

510 GOTO 150 

520 PRINT "NO HAY EJE RADICAL POR SER LAS CIRCUNFERENCIAS CONCENTRICAS" 

530 GOTO 150 

539 REM - CALCULO DEL CENTRO RADICAL DE DOS CIRCUNFERENCIAS - 

540 PRINT "SEA LA CIRCUNFERENCIA DE ECUACION:D1X"2 + F1Y"2 + G1X + H1Y + Ki = O” 
550 PRINT "INTRODUZCA LOS COEFICIENTES D1,F1,G1,H1,K1”;5 

560 INPUT D1,F1,G1,H1,K1 

570 PRINT 

580 PRINT "Y LA CIRCUNFERENCIA DE ECUACION:D2X"*2 + F2Y?*2 + G2X + H2Y + K2 = 0” 
590 PRINT "INTRODUZCA LOS COEFICIENTES D2,F2,62,H2,K2";5 

600 INPUT D2,F2,G62,H2,K2 

610 PRINT 

620 PRINT "Y LA CIRCUNFERENCIA DE ECUACION:D3X"2 + F3Y*2 + G3X + H3Y + K3 = 0" 


630 PRINT "INTRODUZCA LOS COEFICIENTES DS, F3,63,H3,K3";5 
640 INPUT D3,F3,63,H3,K3 

650 PRINT:PRINT 

660 Al1=(D2XG1-G2X*D1)/D1 

670 B1=(D2XH1-H2XD1)/D1 

680 C1=(D2XK1-K2X*D1)/D1 

690 A2=(D3XG1-G3XD1)/D1 

700 B2=(D3XH1-HS3X*xD1)/D1 

710 C2=(D3XK1-K3XD1)/D1 

720 IF Ai=0 AND B1=0 THEN GOTO 820 

730 IF A2=0 AND B2=0 THEN GOTO 820 

740 D=A1XB2-A2X*B1 

750 IF D=0 THEN GOTO 800 

760 X3=(C2XB1-C1XB2)/D 

770 Y3=(A2XC1-A1XC2)/D 

780 PRINT "EL CENTRO RADICAL DE LAS TRES CIRCUNFERENCIAS ES C("3X33","3Y33")" 
790 GOTO 150 


254 CONICAS 


800 PRINT "NO HAY CENTRO RADICAL POR ESTAR LOS CENTROS DE LAS CIRC. ALINEADOS" 
810 GOTO 150 

820 PRINT "NO HAY CENTRO RADICAL POR SER AL MENOS DOS CIRC. CONCENTRICAS” 

830 GOTO1SO 

8240 END 


ejercicios resueltos: 


1. Hallar el eje radical de las circunferencias: 


2 2 


X" + y + 7x- y + 4 0 


0 


2x2 +25? + 8x - 4y + 2 
SOLUCION: 


SEA LA CIRCUNFERENCIA DE ECUACION:D1X"2 + F1Y"2 + G1xX + H1Y + K1 = O 
INTRODUZCA LOS COEFICIENTES D1,F1,G1,H1,K1”? 1 1 ? -3 4 


Y LA CIRCUNFERENCIA DE ECUACION:D2X"2 + F2Y"2 + G2X + H2Y + K2 = O 
INTRODUZCA LOS COEFICIENTES D2,F2,G62,H2,K2? 2 2 8 -4 2 


EL EJE RADICAL DE LAS DOS CIRCUNFERENCIAS ES : 
6 Xx +2 Y+46 =0 


2. Hallar el centro radical de las circunferencias: 


x? + y? + 2x - 4y=0 


x? + y? - 2x 


0 


' 
o 


x* + y? + 2x - 6y - 16 
SOLUCION: 


SEA LA CIRCUNFERENCIA DE ECUACION:D1X"2 + F1Y"2 + G1X + H1Y + K1 = O 
INTRODUZCA LOS COEFICIENTES Di1,F1,G1,H1,K1? 1 1 2 -4 [o] 


Y LA CIRCUNFERENCIA DE ECUACION:D2X"2 + F2Y"2 + G2X + H2Y + K2 = O 
INTRODUZCA LOS COEFICIENTES D2,F2,G62,H2,K2? 1 1 -2 [o] 0 


Y LA CIRCUNFERENCIA DE ECUACION:D3X"2 + F3Y"2 + G3X + H3Y + K3 = O 
INTRODUZCA LOS COEFICIENTES D3,F3,63,H3,K3? 1 1 2 =6 -=16 


EL CENTRO RADICAL DE LAS TRES CIRCUNFERENCIAS ES C(-8 ,-8 ) 


3. Calcular la potencia del punto (2,3) respecto de la circunferencia 
2,2 
x +y -2y-1=0. 
SOLUCION: 


SEA LA CIRCUNFERENCIA DE ECUACION:D X"2 + F Y72 + G X + HY+K=0 
INTRODUZCA LOS COEFICIENTES D,F.G,H,K? 1 1 [o] -2 =1 
COORDENADAS X0,YO DEL PUNTO P =? 2 3 

LA POTENCIA DE Pt 2, 3 ) RESPECTO DE LA CIRCUNFERENCIA ES = 6 


EL PUNTO P ES EXTERIOR A LA CIRCUNFERENCIA 


ELIPSE 


introducción: 


Este programa permite hacer un estudio elemental de la elipse co 
nocida su ecuación en forma reducida. 

Al ejecutar el programa se obtiene el eje mayor, el eje menor, la 
distancia focal, los vértices, los focos, la excentricidad y el área. 

Si se introducen las coordenadas de un punto de la elipse, el pro 
grama calcula las ecuaciones de la tangente y la normal a la elipse en 


ese punto. 


listado del programa: 


10 REM RRA 


20 REM 
30 REM ESTUDIO ELEMENTAL DE LA 
40 REM 
50 REM ELIPSE EN FORMA REDUCIDA 
60 REM 


70 REM RR X 
100 PRINT 

110 PRINT "ESTE PROGRAMA PERMITE CALCULAR LO SIGUIENTE: " 

120 PRINT 

130 PRINT "1.- ELEMENTOS DE UNA ELIPSE REDUCIDA” 

140 PRINT "2.- TANGENTE Y NORMAL A UNA ELIPSE EN UNO DE SUS PUNTOS” 

150 PRINT 

160 PRINT 

170 PRINT "LA ECUACION REDUCIDA DE LA ELIPSE PUEDE SER DE LA FORMA * 

180 PRINT 


190 PRINT "1.- X*2/4*2 + Y*2/B2 = 1" 
200 PRINT *2.- G x*2 + HY"2= 1" 
Zz10 PRINT 


220 PRINT "SEGUN LA FORMA DE LA ECUACION PULSE EL NUMERO QUE LE PRECEDE"; 
230 INPUT O 

240 IF O=1 THEN GOTO 280 

250 PRINT "INTRODUZCA LOS VALORES DE G,H,I”";5 

260 INPUT G,H, 1 

270 A=SOR(I/G) :B=SQR(1/H):GOTO 300 

280 PRINT "INTRODUZCA LOS VALORES DE A, B"; 

290 INPUT A,B 

300 C=SOR(AXA-BXB) 

310 PRINT 


256 CONICAS 


320 PRINT 

330 PRINT "EJE MAYOR 2 A ="32X*A 

340 PRINT "EJE MENOR 2 B ="32X*B 

350 PRINT "DISTANCIA FOCAL 2 C ="32*C 

360 PRINT "VERTICES A ("3A53”,0), A* (*"3-Aj",0), B (0,"5B3"), B” (0,"5-Bj")" 
370 PRINT "FOCOS F ("3C3",0), F? "5-C3",0)" 

380 PRINT "EXCENTRICIDAD E ="3C/A 


390 PRINT "AREA DE LA ELIPSE S ="j3PIXAXB 

400 PRINT :PRINT 

409 REM - EC. TANGENTE Y NORMAL A LA ELIPSE EN UN PUNTO - 

410 PRINT "PARA CALCULAR LA, TANG.Y LA NORMAL A LA ELIPSE EN UNO DE SUS PUNTOS" 
420 PRINT "INTRODUZCA LAS COORDENADAS DEL PUNTO P(X0,YO)”"; 

430 INPUT XO,YO 

440 M=XOXBXB 

450 N=YOXAXA 

455 L=BXBXXOXXO+AXAXYOXYO 

460 PRINT 

470 PRINT "LA EC. DE LA TANGENTE A LA ELIPSE EN EL PUNTO P(";5X03",";5Y03") ES 
480 PRINT M53"X +*53N3" Y = "3L 

490 U=YOXAXA 

500 V=-XOXBXB 

510 W=(BXB-AXA)XXOXYO 

520 PRINT 

530 PRINT "LA EC. DE LA NORMAL A LA ELIPSE EN EL PUNTO P("3X03","3YO5") ES 
540 PRINT UF"X +"3Uj" Y = "5-W 

550 END 


ejercicios resueltos: 


2 2 
1. baca la elipse de ecuación: 5 + N = 1. 
Calcular el eje mayor, el eje menor, la distancia focal, los vér- 
tices, los focos, la excentricidad, el área , la tangente y la normal en 


el punto (3,2.4) 
SOLUCION: 
LA ECUACION REDUCIDA DE LA ELIPSE PUEDE SER DE LA FORMA 


1.- XS2ZIASNZ2-. +. V*ZIBOZ. == 1 
La G X*2 + H Y*2 = 1 


SEGUN LA FORMA DE LA ECUACION PULSE EL NUMERO QUE LE PRECEDE? 1 


INTRODUZCA LOS VALORES DE A, B? 5 3 

EJE MAYOR 2 A=10 

EJE MENOR 2 B=6 

DISTANCIA FOCAL 2 C€=8 

VERTICES A (5 40), A* (-53,0), B (0, 3 ), B” (0,-3 ) 
FOCOS F (45,0), F*? (-4 ,0) 

EXCENTRICIDAD E=.8 


AREA DE LA ELIPSE S = 47.12389 


PARA CALCULAR LA TANG.Y LA NORMAL A LA ELIPSE EN UNO DE SUS PUNTOS 


INTRODUZCA LAS COORDENADAS DEL PUNTO P(X0,Y0)? 3 2.4 


LA EC. DE LA TANGENTE A LA ELIPSE EN EL PUNTO Pf 3, 2.4 ) ES : 
27 Xx +60 Y= 225 
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Cr 


LA EC. DE LA NORMAL A LA ELIPSE EN EL PUNTO P([ 3, 2.4 ) ES 
60 X +-27 Y = 115.2 


2 + 100y? = 2500. 


Calcular el eje mayor, el eje menor, la distancia focal, los ver- 


osas la elipse de ecuación 25x 


tices, los focos, la excentricidad, el área , las ecuaciones de la tan- 
gente y la normal en el punto (8,-3). 
SOLUCION: 


LA ECUACION REDUCIDA DE LA ELIPSE PUEDE SER DE LA FORMA 


1.- XCPLIAPZ + YP2/BP2. =1 
Lis Ace + 0H Y1E2 => IL 


SEGUN LA FORMA DE LA ECUACION PULSE EL NUMERO QUE LE PRECEDE? 2 


INTRODUZCA LOS VALORES DE G,H,I? 25 100 2500 

EJE MAYOR 2 A = 20 

EJE MENOR 2 B 10 

DISTANCIA FOCAL 2C= 17.320508 

VERTICES A ( 10 ,0), A? (-10 ,0), B (0. 5 ),a B” (0,-5 ) 
FOCOS F ( 8.660254 ,0), F”? (-8.660254 ,0) 
EXCENTRICIDAD E = ¿8660254 


AREA DE LA ELIPSE S = 157.07963 


PARA CALCULAR LA TANG.Y LA NORMAL A LA ELIPSE EN UNO DE SUS PUNTOS 
INTRODUZCA LAS COORDENADAS DEL PUNTO P(X0,YO)? 8 +3 


LA EC. DE LA TANGENTE A LA ELIPSE EN EL PUNTO P(8,-3) ES : 
200 X +-300 Y = 2500 


LA EC. DE LA NORMAL A LA ELIPSE EN EL PUNTO P(8,-3) ES : 
-300 X +-200 Y = -1800 


HIPERBOLA 


introducción: 


Este programa permite hacer un estudio elemental de la hiperbola 


conocida su ecuación en forma reducida. 


Al ejecutar el programa se obtiene el eje transverso, el eje no 


transverso, la distancia focal,los vértices, los focos, la excentricidad 


y las ecuaciones de las asíntotas. 


Si se introduce las coordenadas de un punto de la hipérbola, el pro 


grama calcula las ecuaciones de la tangente y la normal a la hipérbola en 


ese punto. 


listado del programa: 


REM ISR 3299220922202 2020902900200 


10 

20 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


REM 
REM 
REM 
REM 
REM 


ESTUDIO ELEMENTAL DE LA 


HIPERBOLA EN FORMA REDUCIDA 


REM ISR RR009095000RRIOOI 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


"ESTE PROGRAMA PERMITE CALCULAR LO SIGUIENTE: * 
"i.- ELEMENTOS DE UNA HIPERBOLA REDUCIDA” 
”2.- TANGENTE Y NORMAL A UNA HIPERBOLA EN UNO DE SUS PUNTOS” 


"LA ECUACION REDUCIDA DE LA HIPERBOLA PUEDE SER DE LA FORMA " 


"L.- X*2/A7*2 - Y*2/B"2 = 1” 
las GxX*z2 = HH. YSZo= 1" 


"SEGUN LA FORMA DE LA ECUACION PULSE EL NUMERO QUE LE PRECEDE”; 
a] 


IF O=1 THEN GOTO 280 


PRINT 


"INTRODUZCA LOS VALORES DE G,H,I”;5; 


INPUT G,H,I 
A=SOR(I/G) :B=SQR(I/H):GOTO 300 


PRINT 
INPUT 


"INTRODUZCA LOS VALORES DE A, B”; 
A.B 


C=SQR (AXA+BXB) 
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310 PRINT 

320 PRINT 

330 PRINT "EJE TRASVERSO 2 A ="32XxA 

340 PRINT "EJE NO TRANSVERSO 2 B ="32%XB 

350 PRINT "DISTANCIA FOCAL 2 C ="32XxC 

360 PRINT "VERTICES A ("3A3".,0), A? (*3-A3",0)” 


370 PRINT "FOCOS F ("35C53".0), ES UAFCT O) 
3380 PRINT "EXCENTRICIDAD ="3C/A 
390 PRINT "ECUACIONES ASINTOTAS : Y ="3B/A3"xX Y ="3-B/Aj"x" 


400 PRINT :PRINT 

409 REM - EC. TANGENTE Y NORMAL A LA HIPERBOLA EN UN PUNTO - 

410 PRINT "PARA CALCULAR LA TANG.Y LA NORMAL A LA HIPERB. EN UNO DE SUS PUNTOS" 
420 PRINT "INTRODUZCA LAS COORDENADAS DEL PUNTO P(X0,YO)"; 

330 INPUT XO,YO 

440 M=XOXBXB 

450 N=-YOXAXA 

455 L=-BXBXXOXXO+AXAXYOXYO 


460 PRINT 
470 PRINT "LA EC. DE LA TANGENTE A LA HIPERB. EN EL PUNTO P("3X03",";5Y0;5") ES:” 
480 PRINT M53"X +"3N3" Y = "3-L 


490 U=-YOXAXA 
500 V=- XOXBXB 
510 W=(EXB+AXA) XXOXYO 


520 PRINT 

5730 PRINT "LA EC. DE LA NORMAL A LA HIPERB. EN EL PUNTO P(";5X03","3Y0;5") ES :" 
540 PRINT UF"X +"3Uj3" Y = "3-Yu 

550 END 


ejercicios resueltos: 
2 


Lssas la hipérbola 2x*-y =7,.,Hallar el eje transverso, el no trans- 
verso, la distancia focal, los vértices, los focos, la excentricidad, las 
asíntotas y las ecuaciones de la tangente y la normal a la hipérbola en 
el punto (2,1). 

SOLUCION:: 


LA ECUACION REDUCIDA DE LA HIPERBOLA PUEDE SER DE LA FORMA 


1.- X"2/4*2 - Y *2/B"2 = 1 
2.- G x*2 - H Y*2 = 1 


SEGUN LA FORMA DE LA ECUACION PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LOS VALORES DE G,H,1? 2 1 ? 


EJE TRASVERSO 24 3.7416574 
EJE NO TRANSVERSO 2 B 5.2915026 
DISTANCIA FOCAL 2 C = 6.4807407 


VERTICES A ( 1.8708287 ,0), A” (-1.8708287 ,0) 

FOCOS F ( 3.2403703 ,0), F* (-3.2403703 ,0) 
EXCENTRICIDAD E = 1.7320508 

ECUACIONES ASINTOTAS : Y = 1.4142136 X Y =-1.4142136 X 


PARA CALCULAR LA TANG.Y LA NORMAL A LA HIPERB. EN UNO DE SUS PUNTOS 
INTRODUZCA LAS COORDENADAS DEL PUNTO P(X0,Y0O)? 2 1 


LA EC. DE LA TANGENTE A LA HIPERB. EN EL PUNTO P( 2, 1 ) ES: 
14 X +3,5 Y= 24.5 


260 CONICAS 


LA EC. DE LA NORMAL A LA HIPERB. EN EL PUNTO Pt 2, 1 ) ES :: 
-=3.5 X +-194 Y = -21 


2 2 
1 £ x_ - Y = 
Le Dada la hiperbola 3 16 Il. 


Calcular el eje transverso, el eje no transverso, la distancia fo 
cal, los vértices, los focos, la excentricidad, las asíntotas, las ecua- 
ciones de la tangente y la normal en el punto (5, 16/3). 


SOLUCION: 


LA ECUACION REDUCIDA DE LA HIPERBOLA PUEDE SER DE LA FORMA 


Le = X*2/A47*2 - Y*2/B"2 = 1 
2.- 0.2. - H.Y22 = 1 


SEGUN LA FORMA DE LA ECUACION PULSE EL NUMERO QUE LE PRECEDE? 1 


INTRODUZCA LOS VALORES DE A, B? 3 q 
EJE TRASVERSO Z2A=6 
EJE NO TRANSVERSO 2 B = 8 


DISTANCIA FOCAL zCc= 10 


VERTICES A ( 3 4,0), A? (-3 ,0) 

Focos F(S5S,0), F*? (-5 ,0) 

EXCENTRICIDAD E = 1.6666667 

ECUACIONES ASINTOTAS 1 Y = £,.3333333 X Y =-1.3333333 X 


PARA CALCULAR LA TANG.Y LA NORMAL A LA HIPERB. EN UNO DE SUS PUNTOS 


INTRODUZCA LAS COORDENADAS DEL PUNTO P(X0,Y0O)? 5 5.3333333 

LA EC. DE LA TANGENTE A LA HIPERB. EN EL PUNTO P( 5, 5.3333333 ) ES: 
80 X +-48 Y= 144 

LA EC. DE LA NORMAL A LA HIPERB. EN EL PUNTO P( 5, 5.3333333 ) ES: 


-48 X +-380 Y = -666.66667? 


PARABOLA 


introducción: 


El presente programa permite hacer un estudio elemental de la pa- 
rábola de la forma y = ax? + bx + Cc. 

Al ejecutar el programa se obtiene el vértice, el foco, el eje, la 
directriz, los puntos de corte con los ejes y la concavidad. 

Si se introduce la abcisa de un punto de la parábola, el programa 
calcula las ecuaciones de la tangente y la normal a la parábola en ese 


punto. 


listado del programa: 


10 REM 2499292900000 


20 REM ] 
30 REM ESTUDIO ELEMENTAL 
40 REM 
50 REM DE LA PARABOLA 
60 REM 


70 REM 2949998902022 


100 PRINT 

110 PRINT "LA ECUACION REDUCIDA DE LA PARABOLA ES :”; 
120 PRINT "Y = A X*2 + B X + C”" 

130 PRINT 

140 PRINT "INTRODUZCA LOS COEFICIENTES A,B,C"; 
150 INPUT A,B,C 

160 PRINT 

170 PRINT 

180 X1i=-B/(2%A) 

190 Y1I=AXX1XX14+BXX1+C 

200 YF=Yi+1/(4%XA) 

210 D=Y1-1/(9%A) 


220 PRINT "VERTICE DE LA PARABOLA Vo (M3xi3",."3Y13")" 
230 PRINT "FOCO DE LA PARABOLA E xi FA 
240 PRINT "EJE DE LA PARABOLA X ="3X1 
250 PRINT "DIRECTRIZ DE LA PARABOLA Y ="5D 


260 E=BX*B-4XAXC 

270 IF EXO THEN GOTO 400 
280 IF E=0 THEN GOTO 380 
290 X2=(-B+SQR(E))/(2%A) 
300 Y2=AXX2ZXX2+BXX2+C 
310 X3=(-B-SQR(E))/(2%A) 
320 YI=AXXIAXZ + BXX3+C 
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330 PRINT "LA PARABOLA CORTA AL EJE X EN LOS PUNTOS :" 

340 PRINT "(*"5X23","303") , "5Xx33".,"503")"” 

350 GOTO 410 

3640 X2=-B/(2%AM) 

370 Y2=AXX2%X2+BX*X2+C 

380 PRINT "LA PARABOLA CORTA AL EJE X EN EL PUNTO (UR MA MjY23")" 
390 GOTO 410 

400 PRINT "LA PARABOLA NO CORTA AL EJE X * 

410 PRINT "LA PARABOLA CORTA AL EJE Y EN EL PUNTO (0,"5C5")" 
420 IF A>0O THEN GOTO 450 

430 PRINT "LA PARABOLA ES CONCAVA”" 

440 GOTO 460 . 

450 PRINT "LA PARABOLA ES CONVEXA" 

460 PRINT 


470 PRINT"PARA CALCULAR LA TANG.Y NORMAL A LA PARABOLA EN UNO DE SUS PUNTOS" 


480 PRINT" INTRODUZCA LA ABSCISA XO DEL PUNTO P, xo ="; 
490 INPUT XO 

500 YO=AXXOXXO+BXX0+C 

510 M=2XxAXX0+B 


520 PRINT 

530 PRINT "LA EC. DE LA TANGENTE A LA PARABOLA EN EL PUNTO ("3X053","3Y0;3") ES:" 
540 PRINT Mj3"X - Y +"3YO-MXX0;5" = O” 

550 PRINT 

560 PRINT "LA EC. DE LA NORMAL A LA PARABOLA EN EL PUNTO ("5X03","3Y0;3") ES:" 
570 PRINT -1/M3"X - Y +"3 (MXYO+X0)/M3" = O" 

580 END 


ejercicios resueltos: 


1. Dada la parábola y = 2x2-8x+5. Hallar el vértice, el foco, 
la directriz, los puntos de corte con los ejes, la concavidad, la 
te y normal en el punto de abscisa x = 1. 

SOLUCION: 


LA ECUACION REDUCIDA DE LA PARABOLA ES : Y = A X*2 + B X + C 


INTRODUZCA LOS COEFICIENTES A,B,C? 2 -8 5 


VERTICE DE LA PARABOLA E E AS 
FOCO DE LA PARABOLA F(2,-2.875 ) 
EJE DE LA PARABOLA x= 2 
DIRECTRIZ DE LA PARABOLA Y =-3.125 

LA PARABOLA CORTA AL EJE X EN LOS PUNTOS : 
((3.224794499 ,0) ,. ( .775255913 , 0 ) 


LA PARABOLA CORTA AL EJE Y EN EL PUNTO (0, 5 ) 
LA PARABOLA ES CONVEXA 


PARA CALCULAR LA TANG.Y NORMAL A LA PARABOLA EN UNO DE SUS PUNTOS 


INTRODUZCA LA ABSCISA XO DEL PUNTO Pa, xXO0 =? 1 
LA EC. DE LA TANGENTE A LA PARABOLA EN EL PUNTO ( 1 ,-1 ) ES: 
-9 X - Y+3 =0 


LA EC. DE LA NORMAL A LA PARABOLA EN EL PUNTO ( 1 ,-1 ) ES: 
.25 X - Y +-1.25 = 0 : 


el eje 


tangen 
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A la parabola y 2 45x-3. Hallar el vertice, el foco, el eje, 


la directriz, los puntos de corte con los ejes, la concavidad 
gente y normal en el punto de abscisa xXx = 2. 
SOLUCION: 


Y=Ax?*2+BX+c 


LA ECUACION REDUCIDA DE LA PARABOLA ES 


INTRODUZCA LOS COEFICIENTES A,B,C?-1 5 -3 


VERTICE DE LA PARABOLA V(2.5, 3.25) 
FOCO DE LA PARABOLA F(2.5,3) 
EJE DE LA PARABOLA x= 2.5 
DIRECTRIZ DE LA PARABOLA Y = 3.5 

LA PARABOLA CORTA AL EJE X EN LOS PUNTOS : 

( .69722436 , 0) , ( 4.3027756 , 0 ) 


LA PARABOLA CORTA AL EJE Y EN EL PUNTO (0,-3 ) 
LA PARABOLA ES CONCAVA 


PARA CALCULAR LA TANG.Y NORMAL A LA PARABOLA EN UNO DE SUS PUNTOS 
INTRODUZCA LA ABSCISA XO DEL PUNTO P, x0 =? 2 


LA EC. DE LA TANGENTE A LA PARABOLA EN EL PUNTO (2, 3) ES: 
1x-Y<+3do=0 


LA EC. DE LA NORMAL A LA PARABOLA EN EL PUNTO (2, 3) ES: 
=1X-Y+5S =0 


, 


la tan- 


CLASIFICACIÓN Y REDUCION DE CONICAS 


introducción: 


Este programa permite clasificar y reducir una cónica general de 
la forma Ax”+By2+Cxy+Dx+Ey+F=0 
Para la clasificación y posterior reducción, el programa calcula 


los invariantes: cúbico 13, cuadrático 12, y lineal Il. 


listado del programa: 


10 REM 4040992422222) 
20 REM 


30 REM CLASIFICACION Y REDUCION 
40 REM 

50 REM DE CONICAS 

60 REM 


70 REM RRA 
100 PRINT 

110 PRINT "LA ECUACION GENERAL DE UNA CONICA ES :" 
120 PRINT 

130 PRINT "A X*2 + B Y*"2 + C X Y + DX + EY + F = 0” 
140 PRINT 

150 PRINT "INTRODUZCA LOS COEFICIENTES A,B,C,D,E,F"; 
1640 INPUT A,B,C,D,E,F 

169 REM - CALCULO DE LOS INVARIANTES - 

170 I3=AXBXF+CXEXD/4- (BXDXD+CXACAF+EXEXA) /4 

130 I2=AX*XB-CXxC/4 

190 I1=A+B 

Z00 J1i=BXF-EXE/4 

210 J2=AXF-DXD/4 

220 PRINT:PRINT 

230 CR$="CONICA REGULAR :*" 

240 CD$="CONICA DEGENERADA :” 

250 RI$="PAR DE RECTAS IMAGINARIAS” 

260 RR$="PAR DE RECTAS REALES” 

270 IF 13=0 THEN GOTO 390 

280 IF 12>0 AND I1XI3>0 THEN GOTO 370 

290 IF 12>0 AND I1XI3<O THEN GOTO 350 

300 IF I2<0 THEN GOTO 330 

310 PRINT CR$;"  PARABOLA” 

320 GOTO 580 

330 PRINT CR$;"  HIPERBOLA*" 
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340 GOTO 530 

350 PRINT CR$;3” ELIPSE REAL” 

360 GOTO 530 

370 PRINT CR$;" ELIPSE IMAGINARIA” 
380 GOTO 530 

390 IF 12=0 THEN GOTO 450 

400 IF 12>0 THEN GOTO 430 

410 PRINT CD$;3" ";RRS$;3 * SECANTES” 
420 GOTO 630 

430 PRINT CD$;”" ";jRI$; " CONJUGADAS","SE CORTAN EN UN PUNTO REAL” 
440 GOTO 670 

450 IF J1>0 OR J2>0 THEN GOTO S10 
460 IF J1<0 OR J2<%0 THEN GOTO 490 
470 PRINT CD$; ", RECTA REAL DOBLE” 
480 GOTO 240 


490 PRINT RR$; " PARALELAS” y 
500 GOTO 740 
510 PRINT RI$; " PARALELAS” 


520 GOTO 7490 

530 P=13/12 

540 GOSUB 200 

550 PRINT "LA ECUACION REDUCIDA ES:";5 

560 PRINT M3" X*%2 +*"3N53" Y"2 +"3P 53" = O” 

570 GOTO 740 

580 M=11 

590 N=SQR (-13/M) 

600 PRINT "LA ECUACION REDUCIDA ES:";5 

610 PRINT Mj"Y"2 +"32X*XN3" XxX = O” 

é20 GOTO 740 

ó630 GOSUB 200 

640 PRINT "LAS ECUACIONES DE LAS RECTAS SON :" 
650 PRINT M3"X +"3N53"Y = O, "3M3"X -"3N5"Y = O" 
660 GOTO 740 

670 GOSUB 2700 

680 PRINT "LAS ECUACIONES DE LAS RECTAS SON :” 
690 PRINT M3"X +"3N3"Y i = O, "3mM3"X -"3N;3"Y i = O” 
700 REM - SOLUCIONES DE LA ECUACION SECULAR - 
710 M=(I1+SQR(I1XTI1-94X12))/2 

720 N=(11-SOR(I1XI1-4X12))/2 

730 RETURN 

740 P=I1:G6=J2/11 

750 PRINT "LA ECUACION REDUCIDA ES: "; 

760 PRINT Pj "X"2 +"3Q03" = O” 

770 END 


ejercicios resueltos: 


Eos y reducir la cónica: ye + 2y* + 2Xy - 6x - 2y + 9=0 
SOLUCION: 
LA ECUACION GENERAL DE UNA CONICA ES : 
ALKS2 + BB Y02 +. COX Y +: D XX + EY + Fz=S-0 
INTRODUZCA LOS COEFICIENTES A,B,C,D,E,F? 1 2 2 =6 =2 


9 


CONICA REGULAR : ELIPSE REAL 
LA ECUACION REDUCIDA ES: 2.6180394 X"2 + .38196601 Y"2 +-4 =0 


266 CONICAS 


Ze Clasificar y reducir la cónica: x? + 9y? - 6xy + 2x - 6y 
SOLUCION: 


LA ECUACION GENERAL DE UNA CONICA ES : 


A X"2+ BY"2+0CXY+DX+EY+F=0 


INTRODUZCA LOS COEFICIENTES A,B,C.D,E.F? 1 9 6 2 
[o] 
CONICA REGULAR : PARABOLA 


LA ECUACION REDUCIDA ES: 10 Y”"2 + 3.7947332 X= 0 


3. Clasificar y reducir la cónica: x? = y - 2xy+ 8x - 6 = 
SOLUCION: 
LA ECUACION GENERAL DE UNA CONICA ES : 
A X*2 + BY"2+CXY+DX+EY4+F=0 
INTRODUZCA LOS COEFICIENTES A,B,C,D,E,F? 1 +12 -2 8 


=6 


CONICA REGULAR : HIPERBOLA 
LA ECUACION REDUCIDA ES: 1.414213%6 X"2 +-1.4142136 Y”"2 +-14 =0 


0 


MOVIMIENTOS EN EL PLANO 


introducción: 


El presente programa permite obtener las coordenadas del transfor 
mado de un punto P en los siguientes movimientos: 
1.- Traslación en el plano 
2.- Simetría axial en el plano 
3.- Simetría central en el plano 
4.- Giro en el plano 
En caso de que la amplitud del ángulo de giro esté expresado en ra 


dianes, se sustituye la instrucción de la linea 500 por: 


500 INPUT R 
y se eliminan las instrucciones 509 a 530. 
Si se desea realizar productos de movimientos basta con ejecutar- 


los uno a continuación del otro en el orden deseado. 


listado del programa: 


10 REM 3949090909090 RR90RRRRR0RRRRRRRRRRRRRRRRRDRRRRRARDAORORDORDORDEODEODORA RA 
20 REM 


30 REM MOVIMIENTOS EN ESE 
40 REM 

50 REM PLANO 

60 REM 


70 REM 2449009000022 AAA 
100 PRINT á 

110 PRINT "ESTE PROGRAMA PERMITE ESTUDIAR LOS SIGUIENTES MOVIMIENTOS :" 
120 PRINT 

130 PRINT "1.- TRASLACION EN EL PLANO” 

140 PRINT "2.- SIMETRIA AXIAL EN EL PLANO” 

150 PRINT "3.- SIMETRIA CENTRAL EN EL PLANO” 

160 PRINT "4.- GIRO EN EL PLANO” 

170 PRINT 

180 PRINT 

190 PRINT "SEGUN EL MOVIMIENTO QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE"; 
200 INPUT L 

Zz10 PRINT 

220 PRINT 

230 ON L GOTO 239,309,389,459 
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A e 5 5 ____-=u=_-_- A A A A AA A ASAS 


239 REM - TRASLACION EN EL PLANO - 

240 PRINT "INTRODUZCA LAS COORDENADAS  - (V1,VZ2) DEL VECTOR GUIA "; 
250 INPUT V1,VZ 

260 GOSUB 600 

270 X3=X0+V1 

280 Y3=Y0+U2 

290 GOSUB 440 

300 GOTO 170 

309 REM - SIMETRIA AXIAL - 

310 PRINT "SEA El EJE DE SIMETRIA DE ECUACION : 
320 PRINT "INTRODUZCA LOS COEFICIENTES A,B,C"; 
330 INPUT A,B,C 

340 GOSUB 400 

350 X3=X0-2*A*X(AXXO+BXYO+C)/ (AXA+BXB) 

360 Y3I=Y0-ZXBX(AXXO+BXYO+C)/(AXA+BXB) 

370 GOSUB 440 

330 GOTO 170 

389 REM - SIMETRIA CENTRAL - 

390 PRINT "INTRODUZCA LAS COORDENADAS DEL CENTRO DE SIMETRIA"; 

400 INPUT X2,Y2 

410 GOSUB 600 

420 X3=2*X2Z-X0 

430 “3=2xXY2-YO 

440 SOSUB 640 

450 GOTO 170 

459 REM - GIRO EN EL PLANO - 

460 PRINT "INTRODUZCA LAS COORDENADAS DEL CENTRO DE GIRO"; 

470 INPUT X2,Y2 

480 PRINT 

490 PRINT "INTRODUZCA EL ANGULO EN GRADOS, MINUTOS Y SEGUNDOS, G,M,S"; 
500 INPUT G,M,S 

509 REM - CONVERSION DE GRADOS, MINUTOS Y SEGUNDOS A RADIANES - 

510 U=G+M/60+S5/3600 

520 V=INT(U/360) 

530 R=U*X.01745329-UX2XPI 

540 GOSUB 600 

550 X3I=X2+ (X0-X2)%*COS(R)-(YO-YZ)XSINI(R) 

560 YI=Y2+(X0-X2)XSIM(R)+(YO-Y2)XCOS(R) 

570 GOSUB 640 

580 GOTO 170 

590 END 

600 PRINT 

610 PRINT "INTRODUZCA LAS COORDENADAS DEL PUNTO QUE DESEA TRANSFORMAR"; 
620 INPUT XO,YO 

630 RETURN 

640 REM - SALIDA DE RESULTADOS - 

£50 PRINT: PRINT 

660 PRINT "EL HOMOLOGO DEL PUNTO DADO ES ("3X33","3Y33")" 

670 RETURN 


ejercicios resueltos: 


Lisaivas el homologo del punto (3,-2) en un giro de centro (2,9) y 
de amplitud 45*%12' 31". 
SOLUCION : 


SEGUN EL MOVIMIENTO QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE? 4 


INTRODUZCA LAS COORDENADAS DEL CENTRO DE SIMETRIA? 2 -5 
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INTRODUZCA EL ANGULO EN GRADOS, MINUTOS Y SEGUNDOS, G,M,S? 45 12 31 


INTRODUZCA LAS COORDENADAS DEL PUNTO QUE DESEA TRANSFORMAR? 3 -2 


EL HOMOLOGO DEL PUNTO DADO ES ( 10.51097 , 1.9598725 ) 


EN una simetría central de centro (2,-5). Hallar el transformado 
del punto (1,4). 
SOLUCION: 


SEGUN El MOVIMIENTO QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE? <= 


INTRODUZCA LAS COORDENADAS DEL CENTRO DE SIMETRIA? 2 -S 


INTRODUZCA LAS COORDENADAS DEL PUNTO QUE DESEA TRANSFORMAR? 1 4 


EL HOMOLOGO DEL PUNTO DADO ES ( 3 ,-14 ) 


3. Hallar el trasformado del punto (1,-2) en una simetría axial, sien 
do 2x-3y+6 = 0 la ecuación del eje. 
SOLUCION: 


SEGUN EL MOVIMIENTO QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE? 2 


SEA EL EJE DE SIMETRIA DE ECUACION : A XxX + BY +C= 0 
INTRODUZCA LOS COEFICIENTES A,B,C? 2 -3 =) 
INTRODUZCA LAS COORDENADAS DEL PUNTO QUE DESEA TRANSFORMAR? 1 -2 


EL HOMOLOGO DEL PUNTO DADO ES (-3.3076923 , 4.4615383 ) 


4. En una traslación de vector guia (2,-6). Calcular el transformado 
del punto (3,9). 
SOLUCION: 


SEGUN EL MOVIMIENTO QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE? 1 


INTRODUZCA LAS COORDENADAS DEL (V1,V2) DEL VECTOR GUIA ? 2 =6 


INTRODUZCA LAS COORDENADAS DEL PUNTO QUE DESEA TRANSFORMAR? 3 9 


EL HOMOLOGO DEL PUNTO DADO ES (5,3) 


HOMOTECIA EN EL PLANO 


introducción: 


Este programa permite calcular las coordenadas del homólogo de un 
punto P(x¡1Y1) en una homotecia de centro C(x 1 Y, ) y de razón K. Sin más 
que aplicar las expresiones de la transformación. 

También permite hallar los centros de homotecia directa e inversa, 
así como las razones de homotecia, que hacen corresponderse a dos circun 
ferencias. 

Para su ejecución se calculan las coordenadas de los centros y el 


radio de cada circunferencia. 


listado del programa: 


10 REM RNA 


20 REM 

30 REM HOMOTECIA EN EL 
490 REM 

50 REM PLANO 

60 REM 


70 REM IRRRRRRRRORRRARRRRRROARRRRRORRR290092920209002009009090929N9090090000000000OOIDOIIAAA 


100 PRINT 

110 PRINT "ESTE PROGRAMA PERMITE CALCULAR LO SIGUIENTE :” 

120 PRINT 

130 PRINT "1.- EL HOMOTETICO DE UN PUNTO P(X1,Y1) EN UNA HOMOTECIA DE RAZON K” 
140 PRINT ” Y CENTRO EL PUNTO C(X0,YO)" 

150 PRINT "2.- LOS CENTROS DE HOMOTECIAS DE DOS CIRCUNFENCIAS HOMOTETICAS" 
150 PRINT 

170 PRINT 

180 PRINT "SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE"; 

190 INPUT L 

200 PRINT 

210 PRINT 

220 IF L=2 THEN GOTO 359 

229 REM - CALCULO DEL HOMOTETICO DE UN PUNTO - 

230 PRINT "INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA C "; 

240 INPUT XO,YO 

2530 PRINT "INTRODUZCA LA RAZON DE HOMOTECIA K ="; 

260 INPUT K 

270 PRINT 

280 PRINT "INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE QUIERE TRANSFORMAR"; 
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290 INPUT X1,Y1 

300 PRINT 

310 PRINT 

320 XZ2=X0X*(1-K)+K%XX1 

330 Y2=YOX(1-K)+KXY1 

340 PRINT "EL HOMOTETICO DEL PUNTO P ES EL PUNTO P” ("5X23",."3Y23")" 
350 GOTO 160 

359 REM - CALCULO DE LOS CENTROS DE HOMOTECIA DE DOS CIRCUNFERENCIAS - 
360 PRINT "SEA LA CIRCUNFERENCIA DE ECUACION: Di1X"24+D1Y"*2+E1X+F1Y+G1=0” 
370 PRINT "INTRODUZCA LOS COEFICIENTES : D1,E1,F1,G1”; 

380 INPUT D1,E1,F1,G1 

390 Al=-E1/(2XD1) 

400 Bi=-F1/(2%X*D1) 

410 R1=SOR(E1XE1+F1XF1-4XD1IXG1) 

420 PRINT 

430 PRINT "Y LA CIRCUNFERENCIA DE ECUACION: D2X"2+D2Y"*2+E2x+F2Y+G2=0" 
440 PRINT "INTRODUZCA LOS COEFICIENTES : D2,E2,F2,62"; 

450 INPUT D2,E2,F2,6G2 

460 A2=-E2/(2XxD2) 

470 B2=-F2/12XxD2) 

480 R2=SOR (E2XE2+F2XF2-4XD2XG2) 

4990 XD=(A2XR1-A1XR2)/(R1-RZ) 

500 YD=(B2XR1-B1XR2)/ (R1-RZ2) 

S10 XI=(A2XR1+A1XRZ)/(R1+RZ) 

520 YI=(B2XR1+B1XR2)/(R1+R2) 

530 PRINT 

540 PRINT 

550 PRINT "CENTRO DE HOMOTECIA DIRECTA CD ("3XD3","3YD3")5 RAZON"5R2/R1 
560 PRINT 

570 PRINT "CENTRO DE HOMOTECIA INVERSA CI ("3XI53","3YI3")3 RAZON"5-R1/R2 
580 END 


ejercicios resueltos: 


0 


Lis circunferencias: 2x* + 2y* - 8x - dy - 8 


x2 + y? + dy -12 =0 


son homotéticas. Hallar los centros de homotecias directa e inversa, así 
como las razones de homotecia. 
SOLUCION: 


SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE? 2 
SEA LA CIRCUNFERENCIA DE ECUACION: D1X"*2+D1Y"2+E1X+F1Y+G1=0 
INTRODUZCA LOS COEFICIENTES : D1,E1,F1,61? 2 -8 4 -8 
Y LA CIRCUNFERENCIA DE ECUACION: D2X"2+D2Y"*2+E2X+F2Y+G2=0 
INTRODUZCA LOS COEFICIENTES : D2,E2,F2,627? 1 lo) 4 12 
CENTRO DE HOMOTECIA DIRECTA CD (-4 ,-8 ); RAZON .66666667 


CENTRO DE HOMOTECIA INVERSA CI ( .8 ,-.8 ); RAZON -1.5 


272 HOMOTECIA EN EL PLANO 


2.nallar el homólogo del punto P(2,-9) en una homotecia de centro 
C(3,-1) y razón K = 5. 
SOLUCION: 


ESTE PROGRAMA PERMITE CALCULAR LO SIGUIENTE : 


1.- EL HOMOTETICO DE UN PUNTO P(X1,Y1) EN UNA HOMOTECIA DE RAZON K 
Y CENTRO EL PUNTO C(X0,YO) 
2.- LOS CENTROS DE HOMOTECIAS DE DOS CIRCUNFENCIAS HOMOTETICAS 


SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA C ? 3 1 
INTRODUZCA LA RAZON DE HOMOTECIA K =? 5 


INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE QUIERE TRANSFORMAR? 2 9 


EL HOMOTETICO DEL PUNTO P ES EL PUNTO P”? (-2 ,-41 ) 


SEMEJANZA EN EL PLANO 


introducción: 


Se llama semejanza en el plano al producto de un movimiento(tras- 
lación, simetría axial, simetría central y giro) por una homotecia o vi- 
ceversa. 

Este programa realiza el cálculo de los 8 posibles productos, ob- 
teniendose en cada caso las coordenadas del punto P' transformado de un 
punto P previamente introducido. 

En caso de que el movimiento sea un giro, el ángulo esta previsto 
que venga dado en radianes si se desea introducir el ángulo en grados, mi 
nutos y segundos, ver programa "Conversión de ángulos" expuesto con ante- 


rioridad. 


listado del programa: 


10 REM IRRRRRRRRORRRORORRRORRRRRORRRORRORARRRRRRRRRRORARRRORORRODRARRORADORORDARORDOADOREORRARRR 
20 REM 


30 REM SEMEJANZA EN EL PLANO 
40 REM 

50 REM (ESTUDIO DE TODOS LOS CASOS POSIBLES) 

60 REM 


70 REM RR RRRRRRRRDRRORRRDRRRORRRRRARAROORORDOARAORDOREODOODRROARORDORDEOARDORODAOARDEORDODEARRRER 
100 PRINT 

110 PRINT "ESTE PROGRAMA CALCULA LA SEMEJANZA EN EL PLANO, DEL SIGUIENTE MODO :" 
120 PRINT 

130 PRINT "1.- TRASLACION POR HOMOTECIA" 

140 PRINT "2.- HOMOTECIA POR TRASLACION” 

150 PRINT "3.- SIMETRIA AXIAL POR HOMOTECIA” 

160 PRINT "4.- HOMOTECIA POR SIMETRIA AXIAL” 

170 PRINT "S.- SIMETRIA CENTRAL POR HOMOTECIA" 

1230 PRINT "6.- HOMOTECIA POR SIMETRIA CENTRAL" 

190 PRINT "7?.- GIRO POR HOMOTECIA" 

200 PRINT "8.- HOMOTECIA POR GIRO” 

210 PRINT 

220 PRINT 

230 PRINT "SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE"; 

240 INPUT L 

250 PRINT 

260 PRINT 


270 ON L GOTO 279,339,399,459,519,579,639,699 
279 REM - TRASLACION POR HOMOTECIA - 


274 SEMEJANZA EN EL PLANO 


280 GOSUB 1000 
290 GOSUB 1200 

300 GOSUB 1650 

310 GOSUB 1560 

320 GOSUB 1050 

330 GOTO 210 

339 REM - HOMOTECIA POR TRASLACION - 

340 GOSUB 1000 

350 GOSUB 1560 

360 GOSUB 1650 

370 GOSUB 1200 

380 GOSUB 1050 

390 GOTO 210 

399 REM - SIMETRIA AXIAL POR HOMOTECIA - 
400 GOSUB 1000 

410 GOSUB 1270 

420 GOSUB 1650 

430 GOSUB 1560 

440 GOSUB 1050 

450 GOTO 210 

459 REM - HOMOTECIA POR SIMETRIA AXIAL - 
460 GOSUB 1000 

470 GOSUB 1560 

430 GOSUB 1450 

490 GOSUB 1270 

500 GOSUB 1050 

510 GOTO 210 

519 REM - SIMETRIA CENTRAL POR HOMOTECIA - 
520 GOSUB 1000 

530 GOSUB 1350 

540 GOSUB 1650 

550 GOSUB 1560 

560 GOSUB 1050 

5370 GOTO 210 

579 REM - HOMOTECIA POR SIMETRIA CENTRAL - 
580 GOSUB 1000 

590 GOSUB 1560 

600 GOSUB 1650 

610 GOSUB 1350 

620 GOSUB 1050 

$30 GOTO 210 

£39 REM - GIRO POR HOMOTECIA - 

£40 GOSUB 1000 

650 GOSUB 1420 

660 GOSUB 1650 

670 GOSUB 1560 

620 GOSUB 1050 

690 GOTO 210 

699 REM - HOMOTECIA POR GIRO - 

700 GOSUB 1000 

710 GOSUB 1560 

720 GOSUB 1650 

730 GOSUB 1420 

740 GOSUB 1050 

750 GOTO 210 

1000 REM - ENTRADA DE LAS COORDENADAS DEL PUNTO P A TRANSFORMAR - 
1010 PRINT 

1020 PRINT "INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE DESEA TRANSFORMAR”; 
1030 INPUT XO,YO 

1040 RETURN 

1050 REM - SALIDA DEL RESULTADO - 

1060 PRINT 


1070 
1080 
1090 
1100 
1200 
1210 
1220 
1230 
1240 
1260 
1270 
1230 
1290 
1300 
1310 


1320. 
1340: 


1350 
1360 
1370 
13€0 
1390 
1410 
1420 
1430 
1440 
1460 
1470 
1520 
15730 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1640 
1650 
1660 
1670 


J.R.VIZMANOS 275 
PRINT 
PRINT "EL TRANSFORMADO EN LA SEMEJANZA DEL PUNTO P ES P” ("3X33","3Y33")" 
RETURN 
END 


REM - TRASLACION EN EL PLANO - 

PRINT "INTRODUZCA LAS COORDENADAS (V1,V2) DEL VECTOR GUIA"; 
INPUT V1,V2 

X3=X0+V1 

Y3=Y0+V2 

RETURN 

REM - SIMETRIA AXIAL EN EL PLANO - 

PRINT "SEA EL EJE DE SIMETRIA DE ECUACION : AX + BY + C = 0” 
PRINT "INTRODUZCA LOS COEFICIENTES A,B,C"; 

INPUT A,B,C 

X3=X0-2XAX (AXXO+BXYO+C)/ (AXA+BAB) 
Y3=Y0-2XBX(AXXO+BXYO+C)/ (AXA+BXB) 

RETURN 

REM - SIMETRIA CENTRAL EN EL PLANO - 

PRINT "INTRODUZCA LAS COORDENADAS DEL CENTRO DE SIMETRIA”; 
INPUT Xx2,Y2 

A3J=2%X2-X0 

Y3=2*Y2-YO 

RETURN 

REM - GIRO EN EL PLANO - 

PRINT "INTRODUZCA LAS COORDENADAS DEL CENTRO DE GIRO”; 
INPUT Xx2,Y2 

PRINT "INTRODUZCA EL VALOR DEL ANGULO DE GIRO EN RADIANES"; 
INPUT R 

X3=X24 (X0-X2) XCOS(R)-(YO-YZ)XSINI(R) 

VY3=Y2+ (X0-X2) SIN(R)+(YO-Y2)*COS(R) 

RETURN 

REM - HOMOTECIA EN EL PLANO - 

PRINT "INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA”; 
INPUT Xx2,Y2 

PRINT "INTRODUZCA LA RAZON DE HOMOTECIA”; 

INPUT K 

X3=X2%*(1-K)+KXXO 

Y3=Y2X(1-K)+KXYO 

RETURN 

xX0=X3 

YO=Y3 

RETURN 


ejercicios resueltos: 


Listas el transformado del punto P(2,-5) en una semejanza que es el 


> . 
producto de una traslación de vector guia v = (1,8) por una homotecia de 


centro C(0,-2) y razón K = 7. 
LUCION: 


so 


ESTE 


Lis = 
2.- 
3.- 
4.- 
S.- 
6.- 
7.- 
8.- 


PROGRAMA CALCULA LA SEMEJANZA EN EL PLANO, DEL SIGUIENTE MODO 


TRASLACION POR HOMOTECIA 
HOMOTECIA POR TRASLACION 
SIMETRIA AXIAL POR HOMOTECIA 
HOMOTECIA POR SIMETRIA AXIAL 
SIMETRIA CENTRAL POR HOMOTECIA 
HOMOTECIA POR SIMETRIA CENTRAL 
GIRO POR HOMOTECIA 

HOMOTECIA POR GIRO 
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SESUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE? 1 


INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE DESEA TRANSFORMAR? 2 -S 
INTRODUZCA LAS COORDENADAS DEL VECTOR GUIA? 1 8 
INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA? O E 


INTRODUZCA LA RAZON DE HOMOTECIA? ? 


EL TRANSFORMADO EN LA SEMEJANZA DEL PUNTO P ES P”? ( 21 , 33) 


ias el homólogo del punto P(12,-3) en una semejanza que es el 
producto Je una simetría axial de eje 2x-3y+8=0 por una homotecia de cen 
tro el punto C(1,2) y razón K = 3. ” 
SOLUCION: 


INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE DESEA TRANSFORMAR? 12 -3 
SEA EL EJE DE SIMETRIA DE ECUACION: AX +BY+C=0 

INTRODUZCA 1,0S COEFICIENTES A,B,C? 2 -3 8 

INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA? 1 2 


INTRODUZCA LA RAZON DE HOMOTECIA? 3 
EL TRANSFORMADO EN LA SEMEJANZA DEL PUNTO P ES P”? (-3.8461538 , 43.769231 ) 


e el transformado del punto P(7,-3) en una semejanza que se 
obtiene como producto de una homotecia dé centro (-2,-1) y razón K = 6 
por una simetría central de centro C(2,1). 

SOLUCION: 


INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE DESEA TRANSFORMAR? 7 -=3 
INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA?-2 =4, 

INTRODUZCA LA RAZON DE HOMOTECIA? 6 

INTRODUZCA LAS COORDENADAS DEL CENTRO DE SIMETRIA CENTRAL? 2 1 


EL TRANSFORMADO EN LA SEMEJANZA DEL PUNTO P ES P” (-48,15) 


e MN el transformado del punto P(-4,-6) en una semejanza que 
se obtiene.como producto de un giro de centro C(2,1) y una amplitud de 
1 radian por una homotecia de centro (6,-8) y razón k = 6. 
SOLUCION: 


INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE DESEA TRANSFORMAR?-4 -=6 
INTRODUZCA LAS COORDENADAS DEL CENTRO DE GIRO? 2 1 

INTRODUZCA EL VALOR DEL ANGULO DE GIRO EN RADIANES? 1 

INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA? 6 -8 


INTRODUZCA LA RAZON DE HOMOTECIA? 6 


EL TRANSFORMADO EN LA SEMEJANZA DEL PUNTO P ES P* (-2.1091016 ,-6.9856523 ) 


OPERACIONES CON VECTORES EN EL ESPACIO AFIN 


introducción: 


El presente programa permite realizar los siguientes calculos: 


1.- Coordenadas de un vector libre conocidos sus extremos. 
2.- Suma de vectores libres en el espacio afín. 

3.- Diferencia de vectores libres en el espacio afín. 

4.- Producto de un escalar por un vector libre. 


5.- Equipolencia entre vectores libres en el espacio afín. 


listado del programa: 


10 REM ISRIRCRICIOOICRIOICICIOOIOIOIRICIOIIAIIIAIIIIOIIIOIIOIIIAIIOIIIIIOIIOIIAIIIIIIIOIIIIIIIIIICIIAAA: 
20 REM 

30 REM VECTORES EN EL 

40 REM 

50 REM ESPACIO AF IN 

60 REM 

70 REM IICA III III 
100 PRINT 

110 PRINT "ESTE PROGRAMA PERMITE REALIZAR OPERACIONES AFINES " 

120 PRINT "CON VECTORES EN EL ESPACIO" 

130 PRINT 

140 PRINT "1.- COORDENADAS DE UN VECTOR LIBRE, CONOCIDOS SUS EXTREMOS" 

150 PRINT "2.- SUMA DE VECTORES LIBRES" 

160 PRINT "3.- DIFERENCIA DE VECTORES LIBRES" 

170 PRINT "4.- PRODUCTO DE UN ESCALAR POR UN VECTOR LIBRE" 

120 PRINT "5.- EQUIPOLENCIA ENTRE VECTORES LIBRES" 

190 PRINT' 

200 PRINT "SEGUN LA OPCION QUE DESEE PULSE EL NUMERO QUE LE PRECEDE"; 

210 INPUT L 

220 PRINT 

230 ON L GOTO 240,330,390,450,540 

240 PRINT “COORDENADAS DE UN VECTOR V=PQ, CONOCIDOS SUS EXTREMOS P Y Q” 

250 PRINT 

260 PRINT "INTRODUZCA LAS COORDENADAS X,Y,Z DEL PUNTO P”; 

270 INPUT X1,Y1,Z1 

280 PRINT "INTRODUZCA LAS COORDENADAS X.Y,Z DEL PUNTO Q”; 

290 INPUT X2.Y2,22 

300 PRINT 

310 PRINT "LAS COORD. DEL VECTOR LIBRE V=PQ SON: ("3X2-X153","5Y2-Y13","3Z2-Z13")" 
320 GOTO 190 
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330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
730 
740 
750 
760 
770 
780 
790 
800 
sio 


PRINT "SUMA DE VECTORES LIBRES V + W” 

PRINT 

GOSUB 2730 

PRINT 

PRINT "COORD. DEL VECTOR SUMA V + W x= ("3X1+X23","3Y1+Y253","3Z1+22;3")" 
GOTO 190 

PRINT "DIFERENCIA DE VECTORES LIBRES V - W" 

PRINT 

GOSUB 730 

PRINT 

PRINT "COORD. DEL VECTOR DIFERENCIA V - W = ("5X1-X23","3Y1-Y25","3Z1-Z23")" 
GOTO 190 

PRINT "PRODUCTO DE UN ESCALAR K POR UN VECTOR LIBRE V” 
PRINT 

PRINT "INTRODUZCA LAS COORDENADAS X,Y,Z DEL VECTOR V *"; 
INPUT X1,Y1,Z1 

PRINT "INTRODUZCA EL ESCALAR K ="; 

INPUT K 

PRINT 

PRINT "LAS COORDENADAS DEL VECTOR KXV SON 3 ("53KXX13","3KXY1,","3kKXZ1;3")" 
GOTO 190 

PRINT "EQUIPOLENCIA DE LOS VECTORES V=PQ Y  W=MN" 
PRINT 

PRINT "INTRODUZCA LAS COORDENADAS X,Y,Z DEL PUNTO P"; 
INPUT X1,Y1,Z1 

PRINT "INTRODUZCA LAS COORDENADAS X,Y,Z DEL PUNTO Q"; 
INPUT X2,Y2,Z2 

PRINT 

PRINT "INTRODUZCA LAS COORDENADAS X.Y.Z DEL PUNTO M”; 
INPUT X3,Y3,Z23 

PRINT "INTRODUZCA LAS COORDENADAS X,Y,Z DEL PUNTO N”; 
INPUT X4,Y4,Z4 

IF X2-X1=X4-X3 AND Y2-Yi=Y4-Y3 THEN GOTO 700 

PRINT 

PRINT "LOS VECTORES V=PQ Y W=MN NO SON EQUIPOLENTES" 
GOTO 190 

PRINT 

IF Z2-Z1=24-Z3 THEN GOTO 780 

GOTO 660 

PRINT "INTRODUZCA LAS COORDENADAS X,Y,Z DEL VECTOR UV "; 
INPUT X1,Y1,Z1 - 

PRINT "INTRODUZCA LAS COORDENADAS X,Y.Z DEL VECTOR YW "; 
INPUT X2,Y2,Z2 

RETURN 

PRINT 

PRINT "LOS VECTORES V=PQ Y  W=MN SON EQUIPOLENTES" 
GOTO 190 : 

END 


ejercicios resueltos: 


TL issevatas la equipolencia de los vectores v = PO y W = MÍ, siendo 


P(2,3,5), Q(4,6,9), M(0,0,0) y N(2,3,4) 
SOLUCION: 


EQUIPOLENCIA DE LOS VECTORES V=PQ Y  W=MN 


INTRODUZCA LAS COORDENADAS X, 


DEL PUNTO P? 2 3 5 


Vigia 
INTRODUZCA LAS COORDENADAS X,Y,Z DEL PUNTO Q? 4 é 9 
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INTRODUZCA LAS COORDENADAS X,Y,Z DEL PUNTO M? O o o 
INTRODUZCA LAS COORDENADAS X,Y,Z DEL PUNTO N? 2 3 4 


LOS VECTORES V=PQ Y  W=MN SON EQUIPOLENTES 


Ze Hallar las coordenadas del vector v = PO siendo P(2,/3,8) y Q(1,0,9) 
SOLUCION: 


COORDENADAS DE UN VECTOR V=PQ, CONOCIDOS SUS EXTREMOS P Y Q 


INTRODUZCA LAS COORDENADAS X,Y,Z DEL PUNTO P? 2 =3 3 
INTRODUZCA LAS COORDENADAS X,Y,Z DEL PUNTO Q? 1 le 9 


LAS COMBRD. DEL VECTOR LIBRE V=PA SON: (-1 , 3 , 1 ) 


EA Dados los vectores y = (-1,7,13) y W = (8,-12,45). Hallar el yec- 
tor diferencia y - w. . 


SOLUCION: 


DIFERENCIA DE VECTORES LIBRES V - QW 


INTRODUZCA LAS COORDENADAS >»,Y DEL VECTOR Y 7-1 ? 13 
INTRODUZCA LAS COORDENADAS X,Y,Z DEL VECTOR 9W.,? £ -12 45 
COORD. DEL VECTOR DIFERENCIA V - W= (-9 , 19 .-32 ) 


CAMBIO DE SISTEMA DE REFERENCIA EN EL 
ESPACIO AFIN 


introducción: 


Este programa sirve para realizar el cambio de sistema de referen 
cia en un espacio afín, para ello es preciso conocer los elementos de la 
nueva referencia R' en función de la referencia antigua R. 

En caso de que los vectores de la base nueva, por error, sean li- 
nealmente dependientes, el programa informa al usuario que dichos vecto 


res no componen una base. 


listado del programa: 


10 REM IRRRRRRRRRRRRRRRRRRRRR909N00RROROROIOOOIOIOOIOIOIORAAAA A 


ZO REM 

30 REM CAMBIO DE SISTEMA DE 

40 REM 

50 REM REFERENCIA EN EL ESPACIO AFIMN 
60 REM 


70 REM RR) IIA 
100 PRINT 


110 PRINT "SISTEMA DE REFERENCIA ANTIGUO : R (0 3 Ul,U2,U3)" 
120 PRINT "SISTEMA DE REFERENCIA NUEVO : R” (035 V1,V2,V3)” 
30 PRINT 


140 PRINT "INTRODUZCA X,Y,Z DEL NUEVO ORIGEN O”, RESPECTO DE R "; 
150 INPUT A(1,2),A4(1,3),4(1,4) 
160 PRINT "INTRODUZCA X,Y,Z DEL NUEVO VECTOR V1.RESPECTO DE R "; 
170 INPUT A(2,2),A12,3),4(2,4) 
180 PRINT'"INTRODUZCA X,Y,Z DEL NUEVO VECTOR V2,RESPECTO DE R "; 
190 INPUT A(3,2),A(3,3),4(3,4) 
200 PRINT "INTRODUZCA X,Y,Z DEL NUEVO VECTOR V3,RESPECTO DE R "; 
210 INPUT A(4,2),4(4,3),4(4,4) 
220 A(1,1)=1:A(2,1)=0:A(13,1)=0:A(4,1)=0 
230 PRINT "INTRODUZCA X,Y,Z ANTIGUAS DEL VECTOR VW"; 
240 INPUT Z(2),Z(3),Z(4) 
250 Z(1)=1 
260 PRINT 
70 FOR F=1 TO 4 
280 B(F,F)=1 
290 NEXT F 
299 REM - COMPROBACION DE SI LOS VECTORES DADOS FORMAN BASE - 
300 FOR C=1 TO 4 
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310 FOR F=C TO 4 
320 IF A(F,C)<>0 THEN GOTO 360 
330 NEXT F 


340 PRINT "LOS VECTORES V1,V2,V3 NO FORMAN BASE, 


350 GOTO 200 


359 REM - CALCULO DE LA MATRIZ INVERSA DE A(4,4) 


360 FOR K=1 TO 4 

370 X=A(C,K) 

380 A(C,K)=A(F,K) 

390 A(F,K)=X 

400 XB=B(C,K) 

410 B(F,K)=XB 

420 NEXT K 

430 Y=1/A(C,C) 

440 FOR K=1 TO 4 

450 A(C,K)=A(C,K)XY 

460 B(C,K)=B(C,K)XY 

470 NEXT K 

480 FOR P=1 TO 4 

490 IF P=C GOTO 550 

500 Y=-A(P,C) 

510 FOR K=1 TO 4 

520 A(P,K)=A(P,K)+A(C,K)XY 
530 B(P,K)=B(P,K)+B(C,K)XY 
540 NEXT K 

550 NEXT P 

560 NEXT C 

570 FOR F=1 TO 4 

580 FOR C=1 TO 4 

590 C(F,C)=INT(B(F,C)X10000+.5)/10000 
600 NEXT C 

610 NEXT F 

620 PRINT 

629 REM - PRODUCTO DE Z(N)XCI(N,N) —- 
630 FOR F=1 TO 4 

640 FOR C=1 TO 4 

650 W(F)=W(F)+C(C,F)XZ(C) 
660 NEXT C 

670 NEXT F 

679 REM - SALIDA DEL RESULTADO - 


680 PRINT "LAS COORDENADAS NUEVAS DEL VECTOR Wi, 


690 PRINT "("53W(2)3","3W(3)53","3W(4)5")" 
700 END 


ejercicios resueltos: 


1 > > > 
eSean R = (0,u1 ,U,,U3) y R'= (0' 


espacio afín, tales que: 


o 
o 
l 
! 
Ey 
+ 
un 
Ey 


> > 
4 2 

eN > > 

q: * 007 2 


REVISE SUS COORDENADAS" 


SON 


> > 
Vi, Var 


+ 3u 
3 


+ 


> 
2u 
—> 
9u 


> 
8u 


3 


3 


3 
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v3) dos referencias del 


— 
Hallar respecto de R' las coordenadas de un vector w que respec- 


to de R tiene coordenadas (1,7,-4). 
SOLUCION: 


282 ESPACIO AFIN 


SISTEMA DE REFERENCIA ANTIGUO : R (0 3 Ul,U2,U3) 
SISTEMA DE REFERENCIA NUEVO : R*(0*3 V1,V2,V3) 
INTRODUZCA X,Y,Z DEL NUEVO ORIGEN O* , RESPECTO DE R ?-1 5 3 
INTRODUZCA X,Y,Z DEL NUEVO VECTOR V1,RESPECTO DE R ? O S 2 
INTRODUZCA X,Y,Z DEL NUEVO VECTOR V2,RESPECTO DE R ? 1 3 => 
INTRODUZCA X.Y,Z DEL NUEVO VECTOR V3,RESPECTO DE R ? 6 5 -8 
INTRODUZCA X,Y,Z ANTIGUAS DEL VECTOR W? 1 ? -49 
LAS COORDENADAS NUEVAS DEL VECTOR W, SON :( .3636 , O , .2463 ) 

2 > > > > > > . 

e Sean R = (0,uy ,Uz,Uz) y R' = (0*,V¡,V2rV3) dos referencias del 


espacio afín, tales que: 


: -> > > 
00' = Suzy + 7u, + 2u3 
— o > — 
1 uy + 2u, + 3uz 
> y > > - 
v, = 4u; + 5u, + 6u3 
Y, = 7%, +8, + 9u 
ME 7u7 + u, 3 


Hallar respecto de R' las coordenadas de un vector W que respec- 
“to de R tiene coordenadas (1,-2,8). 
SOLUCION: 


SISTEMA DE REFERENCIA ANTIGUO : R (0 3 Ul,U2,U3) 

SISTEMA DE REFERENCIA NUEVO : R”* (03 V1,U2,V3) 

INTRODUZCA X,Y,Z DEL NUEVO ORIGEN O” ¿RESPECTO DE R ? 5 Z 2 
INTRODUZCA X,Y,2 DEL NUEVO VECTOR V1,RESPECTO DE R ? 1 2 3 
INTRODUZCA X,Y,Z DEL NUEVO VECTOR V2,RESPECTO DE R ? 4 5 6 
INTRODUZCA X,Y,Z DEL NUEVO VECTOR V3,RESPECTO DE R ? 2? 8 9 
INTRODUZCA X,Y,Z ANTIGUAS DEL VECTOR W? 1 =2 8 


LOS VECTORES V1,V2,V3 NO FORMAN BASE, REVISE SUS COORDENADAS 


-_DETERMINACION DE RECTAS EN EL ESPACIO AFIN 


introducción: 


Este programa calcula las ecuaciones de una recta en el espacio, 


en los siguientes casos: 


1.- Recta determinada por un punto y un vector no nulo. 


2.- Recta determinada por dos puntos distintos. 


Los resultados se expresan en forma parametrica o en forma contí 


nua. 


listado del programa: 


10 REM IRRRRSRRRROIRRIORIRSIRIRRIORIROIRIROIRIOIRRIRIRRIR0090090920099090900900N0000OREA 
20 REM 


30 REM DETERMINACION DE RECTAS 
490 REM 

50 REM EN EL ESPACIO AFIN 

60 REM 


70 REM RR 00002000290202020022020202020022022020202020202020020200202000000009090020000000% 
100 PRINT 

110 PRINT "ESTE PROGRAMA LE PERMITE CALCULAR LAS ECUACIONES DE :” 

120 PRINT 

130 PRINT "1.- RECTA DETERMINADA POR UN PUNTO Y UN VECTOR NO NULO” 

140 PRINT "2.- RECTA DETERMINADA POR DOS PUNTOS DISTINTOS” 

150 PRINT 

160 PRINT 

170 PRINT "SEGUN LA OPCION QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE”; 

180 INPUT L 

190 PRINT 

200 PRINT 

Z10 IF L=2 THEN GOTO 319 

219 REM - ECUACION DE UNA RECTA DETERMINADA POR UN PUNTO Y UN VECTOR NO NULO" 
220 PRINT "INTRODUZCA LAS COORDENADAS X1,Y1,Z1 DEL PUNTO Pp"; 

230 INPUT X1,Y1,Z1 

240 PRINT "INTRODUZCA LAS COORDENADAS A,B.C DEL VECTOR DIRECTOR UV"; 

250 INPUT A,B,C 

260 IF A=0 AND B=0 THEN GOTO 280 

270 GOTO 400 

280 IF C=0 THEN GOTO 300 

290 GOTO 400 

300 PRINT:PRINT "EL VECTOR DADO ES EL VECTOR NULO, NO DETERMINA UNA RECTA" 
310 GOTO 150 
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319 REM - ECUACION DE UNA RECTA DETERMINADA POR DOS PUNTOS DISTINTOS - 
320 PRINT "INTRODUZCA LAS COORDENADAS X1,Y1,Z1 DEL PUNTO P”; 
330 INPUT X1,Y1,Z1 

340 PRINT "INTRODUZCA LAS COORDENADAS X2,Y2,Z2 DEL PUNTO Q*; 
350 INPUT X2,Y2,Z2 

360 A=X2-X1 

370 B=Y2-Y1 

380 C=Z2-Z1 

390 GOTO 400 

400 REM - IMPRESION DE LOS RESULTADOS - 

410 PRINT 

420 PRINT 

430 PRINT "LAS ECUACIONES PARAMETRICAS DE LA RECTA PEDIDA SON :” 
440 PRINT 

450 PRINT "X ="3 X13 "+"3A53"T" 

460 PRINT *Y ="3 Yijz "+"3B53"T" 

470 PRINT "Z ="3 Z13 "+"3C5"T" 

480 PRINT 

490 PRINT "LA RECTA PEDIDA EN FORMA CONTINUA ES :" 

500 PRINT 

510 PRINT "X -"3X13" hd 1 (6 E Zz -"3Z1 

520 PRINT "------ E. MAS E AAA E 

530 PRINT " "3Aj3” "3B;3" "3C 

540 GOTO 150 

550 END 


ejercicios resueltos: 


Li las ecuaciones paramétricas y en forma continua de la rec 
ta determinada por los puntos P(2,7,-1) y Q(5,4,9). 
SOLUCION: 


INTRODUZCA LAS COORDENADAS X1,Y1,Z1 DEL PUNTO P? 2 ? =4 
INTRODUZCA LAS COORDENADAS X2,Y2,22 DEL PUNTO QU? 5 4 9 


LAS ECUACIONES PARAMETRICAS DE LA RECTA PEDIDA SON : 


LA RECTA PEDIDA EN FORMA CONTINUA ES : 


DETERMINACION DE PLANOS EN EL ESPACIO AFIN 


introducción: 


Este programa permite calcular la ecuación de un plano en los si- 


guientes casos: 


— > 
1.- Conocidos un punto P y dos vectores v y w no nulos y no pro- 


porcionales. 
2.- Conocidos tres puntos P,Q y R no álineados. 
3.- Conocidos la ecuación de una recta R(Q,V) y un punto P exte- 


rior a ella. 


ed . 
Jl.os resultados se expresan en forma parametrica y en forma general. 


El programa detecta los casos, en que por error, los datos introdu 


cidos no determinan un plano. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 
150 
170 
180 
190 
200 
210 
220 
230 
240 
249 


REM ISR 9202202020200 
REM 
REM DETERMINACION DE UN 
REM 
REM PLANO EN EL ESPACIO AF IN 
REM 
REM IRRADIA 
PRINT 

PRINT "ESTE PROGRAMA LE PERMITE CALCULAR LAS ECUACIONES DE :" 

PRINT 

PRINT "1.- UN PLANO DETERMINADO POR UN PUNTO P.— Y DOS VECTORES V, Y W " 
PRINT ” NO NULOS Y NO PROPORCIONALES" 

PRINT "2.- UN PLANO DETERMINADO POR TRES PUNTOS P,8 Y R NO ALINEADOS" 
PRINT "3.- UN PLANO DETERMINADO POR UNA RECTA R(Q,V) Y UN PUNTO P EXTERIOR” 
PRINT 

PRINT 

PRINT 

PRINT "SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE"; 

INPUT L 

PRINT 

PRINT 

ON L GOTO 249,359,529 


REM - PLANO DETERMINADO POR UN PUNTO Y DOS VECTORES NO NULOS Y NO PROPORC." 


286 ESPACIO AFIN 


250 PRINT "INTRODUZCA LAS COORDENADAS X1,Y1,Z1 DEL PUNTO P"; 

260 INPUT X1,Y1,Z1 

270 PRINT "INTRODUZCA LAS COORDENADAS V1,V2,V3 DEL VECTOR NO NULO UV"; 
280 INPUT V1,V2,V3 

290 PRINT "INTRODUZCA LAS COORDENADAS W1,W2,W3 DEL VECTOR NO NULO W"; 
300 INPUT W1.,W2,W3 

310 IF VIXWZ=W1XUZ AND V2XW3=W2%X*V3 THEN GOTO 330 

320 GOTO 679 

330 PRINT 

340 PRINT "LOS VECTORES V Y W SON PROPORCIONALES, NO DETERMINAN UN PLANO" 
350 GOTO 170 y 

359 REM - PLANO DETERMINADO POR TRES PUNTOS NO ALINEADOS - 

360 PRINT "INTRODUZCA LAS COORDENADAS X1,Y1,Z1 DEL PUNTO P"; 

370 INPUT X1,Y1,Z1 

380 PRINT "INTRODUZCA LAS COORDENADAS X2,Y2,Z2 DEL PUNTO Q”; 

390 INPUT X2,Y2,Z2 

400 PRINT "INTRODUZCA LAS COORDENADAS %<3,Y3,Z3 DEL PUNTO R”; 

410 INPUT X3,Y3,Z3 

420 Vi=X2-X1 

430 V2=Y2-Y1 

440 V3=22-Z1 

450 Wi=X3-X1 

460 W2=Y3-Y1 

470 W3=Z3-Z1 

480 IF VIXW2=V2XW1 AND V2XW3=W2XV3 THEN GOTO 500 

490 GOTO 679 

500 PRINT 

510 PRINT "LOS PUNTOS P,Q Y R ESTAN ALINEADOS, NO DETERMINAN UN PLANO" 
518 GOTO 170 

520 INPUT X1,Y1,Z21 

529 REM - PLANO DETERMINADO POR UNA RECTA R(Q,V) Y UN PUNTO P EXTERIOR - 
530 PRINT "INTRODUZCA LAS COORDENADAS DEL VECTOR DIRECTOR DE LA RECTA"; 
540 INPUT V1,UZ2,V3 : 
550 PRINT "INTRODUZCA LAS COORDENADAS X2,Y2.22 DE UN PUNTO Q DE LA RECTA"; 
560 INPUT X2,Y2,Z2 

570 PRINT "INTRODUZCA LAS COORDENADAS X1.Y1.Z1 DEL PUNTO EXTERIOR P"; 
580 INPUT X1,Y1,Z1 

590 IF (X2-X1)XV2=(Y2-Y1)XV1 AND (Y2-Y1)XV3=VY2*X(Z2-Z1) THEN GOTO 650 
600 Wi=X1-X2 

610 W2=Y1-Y2 

620 W3=Z1-Z2 

630 GOTO 679 

640 PRINT 

650 PRINT "EL PUNTO P NO ES EXTERIOR A LA RECTA, NO DETERMINAN UN PLANO" 
660 GOTO 170 
670 PRINT 

679 REM - SALIDA DE RESULTADOS - 

680 PRINT:PRINT:PRINT "ECUACIONES PARAMETRICAS DEL PLANO PEDIDO” 

690 PRINT 

700 PRINT "X ="3X153"+"3V13"T +"3W13"S" 

710 PRINT "Y ="3Y13"+*"3U2j3"T +"53W2;3"S" 

720 PRINT "Z ="3Z13"+"5U633"T +"3W33"S" 

730 D=-(AXX1+BXY1+CXZ1) 

740 PRINT 

750 PRINT "ECUACION DEL PLANO EN FORMA GENERAL" 

760 PRINT 

770 A=U2ZXW3-WZXV3 

780 B=V3XW1-V1XW3 

790 C=V1XW2Z-WIXVZ 

800 D=-(AXX1+BXY1+CXZ1) 

2810 PRINT Aj"X +"3B3"Y +"3C3"Z +"3D53" = O" 

820 END 
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ejercicios resueltos: 


lemas la ecuación del plano determinado por el punto P(2,3,-6) y 
los vectores v(0,-1,5) y w(2,3,0). 
SOLUCION: 


SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE? 1 


INTRODUZCA LAS COORDENADAS X1,Y1,Z1 DEL PUNTO P? 2 3 =6 
INTRODUZCA LAS COORDENADAS V1,V2,V3 DEL VECTOR NO NULO V? O -1 5 
INTRODUZCA LAS COORDENADAS W1,W2,W3 DEL VECTOR NO NULO W? 2 3 0 


ECUACIONES PARAMETRICAS DEL PLANO PEDIDO 


N XX 


ECUACION DEL PLANO EN FORMA GENERAL 


-=15S X + 10 Y + 2 Z + 12 =0 


5 Haliar la ecuación del plano determinado por los puntos: 
P(1,-3,8), Q(2,1,0) y R(5,4,9). Expresar la ecuación del plano obtenido 
en forma paramétrica y en forma general. 


SOLUCION: 


SEGUN LA OPCION DESEADA, PULSE EL NgiMERO QUE LE PRECEDE? 2 


INTRODUZCA LAS COORDENADAS X1,Y1,2Z1 DEL PUNTO P? 1 -=3 8 
INTRODUZCA LAS COORDENADAS X2,Y2,Z2 DEL PUNTO Q? 2 1 lo) 
INTRODUZCA LAS COORDENADAS X3,Y3,2Z3 DEL PUNTO R? 5 4 9 
ECUACIONES PARAMETRICAS DEL PLANO PEDIDO Q(2,1,0) 
X= +1T7T+495S 

Y =-3 +4 T+ 758 

2 = 8 +8T+1S 


ECUACION DEL PLANO EN FORMA GENERAL 


60 X +-33 Y +-9 Z +-87 = 0 


INCIDENCIA, PARALELISMO E INTERSECCION EN EL 
ESPACIO AFIN 


introducción: 


Este programa permite estudiar todos los casos de incidencia, pa= 
ralelismo y posiciones relativas de puntos, rectas y planos en el espacio 
Las entradas de datos se han puesto al final del programa como sub 


rutinas por tener que utilizarlas en varias ocasiones. 


listado del programa: 


10 REM RR 080090090N9N00N0N0000RX% 
20 REM e 
30 REM INCIDENCIA PARALELISMO “E 


40 REM 

50 REM INTERSECCION E N EL 
60 REM 

70 REM ESPACIO AFIN 

80 REM 


90 REM 3244400002002 
100 PRINT 

110 PRINT "ESTE PROGRAMA PERMITE ESTUDIAR LOS SIGUIENTES CASOS :" 

120 PRINT 


130 PRINT "1.- INCIDENCIA DE UN PUNTO CON UNA RECTA * 
140 PRINT "*2.- INCIDENCIA DE UN PUNTO CON UN PLANO * 
150 PRINT "3.- INCIDENCIA DE UNA RECTA CON UN PLANO" 
160 PRINT "4.- PARALELISMO ENTRE RECTAS” 

170 PRINT "5S.- PARALELISMO ENTRE PLANOS” 

180 PRINT "ó.- PARALELISMO DE RECTA Y PLANO" 

190 PRINT "7?.- POSICIONES RELATIVAS DE DOS RECTAS” 
200 PRINT "8.- POSICIONES RELATIVAS DE DOS PLANOS" 
210 PRINT "9.- POSICIONES RELATIVAS DE RECTA Y PLANO” 
220 PRINT 

230 PRINT 


240 PRINT "SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE"; 
250 INPUT L 

260 PRINT 

270 PRINT 

280 ON L GOTO 289,359,429,519,589,659,729,949,1129 

289 REM - INCIDENCIA DE UN» PUNTO CON UNA RECTA - 

290 GOSUB 1500 

300 GOSUB 1550 

310 IF (X1-XO)XV2Z=V1X(Y1-YO) AND V3*(Y1-YO)=V2X*(Z1-Z0) THEN GOTO 340 
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320 
330 
340 
350 
359 
360 
370 
380 
390 
400 
410 
420 
429 
430 
440 
450 
460 
470 
480 
490 
500 
510 
519 
520 
530 
540 
550 
560 
570 
580 
589 
590 
600 
610 
620 
630 
640 
650 
659 
660 
670 
680 
690 
700 
710 
720 
729 
730 
740 
750 
760 
770 
780 
790 
3800 
820 
830 
840 
850 
860 
870 
88o 
890 


PRINT "EL PUNTO P NO ES INCIDENTE CON LA RECTA DADA" 


GOTO 220 

PRINT "EL PUNTO P ES INCIDENTE CON LA RECTA DADA” 
GOTO 220 

REM - INCIDENCIA DE PUNTO Y PLANO - 

GOSUB 1500 


GOSUB 1710 

IF A1XXO+B1XYO+C1XZO+D1=0 THEN GOTO 410 

PRINT "EL PUNTO P NO PERTENECE AL PLANO DADO" 
GOTO 220 

PRINT "EL PUNTO P ES INCIDENTE CON EL PLANO DADO" 
GOTO 220 

REM - INCIDENCIA DE UNA RECTA CON UN PLANO - 
GOSUB 1550 

GOSUB 1710 

M=A1XX1+B1XY1+C1XZ1+D1 

N=A1XV1+B1XV2Z+C1%V3 

IF M=0 AND N=0 THEN GOTO 500 

PRINT "LA RECTA DADA NO ESTA CONTENIDA EN EL PLANO DADO" 
GOTO 220 

PRINT "LA RECTA DADA ESTA CONTENIDA EN EL PLANO DADO" 
GOTO 220 

REM - PARALELISMO ENTRE RECTAS - 

GOSUB 1550 

GOSUB 1630 

IF VIXW2Z=W1%VZ AND VIXW3=W1XV3 THEN GOTO 570 
PRINT "LAS RECTAS DADAS NO SON PARALELAS" 

GOTO 220 

PRINT "LAS RECTAS DADAS SON PARALELAS" 

GOTO 220 

REM - PARALELISMO ENTRE PLANOS - 

GOSUB 1710 

GOSUB 1770 ' 

IF A1XB2=A2X*B1 AND AIXC2=C1XA2 THEN GOTO 640 
PRINT "LOS PLANOS DADOS NO SON PARALELOS" 

GOTO 220 

PRINT "LOS PLANOS DADOS SON PARALELOS" 

GOTO 220 

REM - PARALELISMO ENTRE RECTA Y PLANO - 

GOSUB 1550 

GOSUB 1710 

IF AIXVI+BIXVZ+C1XV3=0 THEN GOTO 710 

PRINT "LA RECTA Y EL PLANO DADOS NO SON PARALELOS" 
GOTO 220 

PRINT "LA RECTA Y EL PLANO DADOS SON PARALELOS" 
GOTO 220 

REM - POSICIONES RELATIVAS DE DOS RECTAS - 

GOSUB 1550 

GOSUB 1630 

F=V1KWZX (22-21) +UZXWIK(X2Z-X1)+W1XV3K (Y2-Y1) 
G=VIFWZA (XZ-X1)+W1XVZX(Z2-Z1)+WIXV1X(Y2-Y1) 

D=F-6 

IF D<>0 THEN GOTO 880 

IF VIXWZ=VZXW1 AND VIXW3=W1%V3 THEN GOTO 900 
PRINT "LAS RECTAS DADAS SON SECANTES Y SE CORTAN EN EL PUNTO" 
S= (VI (Y1-Y2)+U2Z%(X2-X1))/ (W2V1-VZXW1) 
XC=X2+W1%S 

YC=Y2+WZXS 

ZC=Z2+W3*S 

PRINT "("3XC3%,"5YC3","5ZC5")" 

GOTO 220 

PRINT "LAS RECTAS DADAS SE CRUZAN, NO SON COPLANARIAS" 
GOTO 220 


ESPACIO AFIN 


INTERSECCION ES: " 


DE LA RECTA”; 


DE LA RECTA"; 


290 

900 IF (X2-X1)XV2=V1X*(Y2-Y1) AND (Y2-Y1)XV3=(Z2-Z1)XU2 THEN GOTO 930 
910 PRINT "LAS RECTAS DADAS SON PARALELAS" 

920 GOTO 220 

930 PRINT "LAS RECTAS DADAS SON COINCIDENTES" 

940 GOTO 220 

949 REM - POSICIONES RELATIVAS DE DOS PLANOS - 

950 GOSUB 1710 

960 GOSUB 1770 

970 IF AIXB2=A2X*XB1 AND BiXC2=B2X*C1 THEN GOTO 1080 

980 PRINT "LOS PLANOS DADOS SON SECANTES, LA EC.DE LA RECTA DE 
990 Vi=B1XC2-C1XB2 

1000 V2=C1XA2-A1XC2 

1010 V3=A1XB2-A2ZXB1 

1020 ZO=(B1XD2-D1XB2)/(B2XC1-B1XC2) 

1030 WO=(C1X*D2-C2X*D1)/(C2XB1-C1XB2) 

1040 PRINT "x = +"5V1j"T" 

1050 PRINT "Y ="3Y03"+"3U2;"T” 

1060 PRINT "2 ="3Z03"+"3U33"T" 

1070 GOTO 220 

1080 IF AIXB2=A2X*B1 AND C1XD2=C2XD1 THEN GOTO 1110 

1070 PRINT "LOS PLANOS DADOS SON PARALELOS” 

1100 GOTO 220 

1110 PRINT "LOS PLANOS DADOS SON COINCIDENTES” 

1120 GOTO 220 

1129 REM - POSICIONES RELATIVAS DE RECTA Y PLANO - 

1130 GOSUB 1550 

1140 GOSUB 1710 

1150 IF A1XV1+B1XV2+C1XV3=0 THEN GOTO 1240 

11460 PRINT "LA RECTA CORTA AL PLANO EN EL PUNTO”; 

1170 M=A1XX1+B1XY1+C1XZI+DI 

1180 N=A1XV1+B1XV2+C1%HVS 

1190 XC=X1-V1XM/N 

1200 YC=Y1-V2XM/N 

1210 ZC=2Z1-V3XM/N 

1220 PRINT "("3XC3","3YC53","532C3")" 

1230 GOTO 220 

1240 IF AlLXX1+B1XY1+C1XZ1+D1=0 THEN GOTO 1270 

1250 PRINT "LA RECTA ES PARALELA AL PLANO” 

1260 GOTO 220 

1270 PRINT "LA RECTA ESTA CONTENIDA EN EL PLANO” 

1280 GOTO 220 

1500 REM - ENTRADA DE DATOS DE UN PUNTO - 

1510 PRINT "INTRODUZCA LAS COORDENADAS X0,Y0,ZO DEL PUNTO P”"; 
1520 INPUT X0,YO,ZO 

1530 PRINT 

1540 RETURN 

15350 REM - ENTRADA DE DATOS DE UNA RECTA - 

1560 PRINT "INTRODUZCA LAS COORD. V1,V2,V3 DEL VECTOR DIRECTOR 
1570 INPUT V1,V2,V3 

1580 PRINT 

1590 PRINT "INTRODUZCA LAS COORD. X1,Y1,Z1 DE UN PUNTO DE LA RECTA"; 
1600 INPUT X1,Y1,Z21 

1610 PRINT 

1620 RETURN 

1630 REM - ENTRADA DE DATOS DE OTRA RECTA - 

16440 PRINT "INTRODUZCA LAS COORD. W1,W2,W3 DEL VECTOR DIRECTOR 
1650 INPUT W1,W2,WS 

1660 PRINT 

1670 PRINT "INTRODUZCA LAS COORD. X2,Y2,Z22 DE UN PUNTO DE LA RECTA”; 
1680 INPUT X2,Y2,22 

1690 PRINT 

1700 RETURN 

1710 REM - ENTRADA DE DATOS DE UN PLANO - 
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1720 PRINT "SEA EL PLANO DE ECUACION: Al X + Bl Y + C1 Z + Di = O” 
1730 PRINT "INTRODUZCA LOS COOEFICIENTES : Al, Bi, Cl, Di”; 
1740 INPUT A1,B1,C1,D1 

1750 PRINT 

1760 RETURN 

1770 REM - ENTRADA DE DATOS DE OTRO PLANO - 

1780 PRINT "SEA EL PLANO DE ECUACION: A2 X + B2 Y + C2 Z + D2 
1790 PRINT "INTRODUZCA LAS COQEFICIENTES : A2, B2, C2, D2"; 
1300 INPUT A2,B2,C2,D2 

1810 PRINT 

1820 RETURN 


Ú 


o" 


ejercicios resueltos: 


1. Estudiar la posición relativa de las rectas siguientes: 


x-1_y+3_2-7 AE AA A MT 


2 3 O y OSA 5 
SOLUCION: 


SEGUN LA OPCTON DESEADA, PULSE EL NUMERO QUE LE PRECEDE? ? 


INTRODUZCA LAS COORD. V1,V2,V3 DEL VECTOR DIRECTOR DE LA RECTA? 2 3 
o 

INTRODUZCA LAS COORD. X1,Y1,Z1 DE UN PUNTO DE LA RECTA? 1 == 2 
INTRODUZCA LAS COORD. W1,WZ,W3 DEL VECTOR DIRECTOR DE LA RECTA? O 1 
Las] , 

INTRODUZCA LAS COORD. X2,Y2,22 DE UN PUNTO DE LA RECTA? 2 -4 é 


LAS RECTAS DADAS SE CRUZAN, NO SON COPLANARIAS 


: AS - 4 z 
5 Estudiar la posición relativa de la recta: ds ADOS 5 37 
y el plano 2 x + zz - 1=0. 

En caso de que sean secantes, obtener el punto de corte. 


SOLUCION : 


SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE? 9 


INTRODUZCA LAS COORD. V1,V2,V3 DEL VECTOR DIRECTOR DE LA RECTA? 1 2 
=3 
INTRODUZCA LAS COORD. X1,Y1,Z1 DE UN PUNTO DE LA RECTA? 3 5 E] 


SEA EL PLANO DE ECUACION: Al X + B1 Y + C1 Z + Di = O 
INTRODUZCA LAS COOEFICIENTES : Al, B1, Ci, D1? 2 o 1 =d 


LA RECTA CORTA AL PLANO EN EL PUNTO( 13 , 24 ,-25 ) 


OPERACIONES CON VECTORES EN El ESPACIO 
AFIN EUCLIDEO 


introducción: 


Este programa permite realizar operaciones con vectores en el es- 
pacio afín euclideo. 

Introducidas las coordenadas de los vectores v y w, al ejecutar 
el programa se obtiene: 


> o. 
1.- Las coordenadas del vector suma V + w. 


2.- Las coordenadas del vector Y -W. 
3.- Las coordenadas del vector producto vectorial vXxw 
4.- El producto escalar de Y. W. 
5.- El módulo de v. 
6.- El módulo de w. 
ed eS 
7.- El ángulo que forman v y w. 
8.- Los ángulos que forman el vector con cada uno de los ejes. 


> 
v 
mn 
9.- Los ángulos que forman el vector w con Cada uno de los ejes. 


Los ángulos se obtienen en grados, minutos y segundos debido a la 


subrutina que se inicia en la linea 649. 


listado del programa: 


10 REM IRRRRRRORRRORARORDORDARARARARARRRRRROORROIRIRIRIRIRIRIOIRIOIOIOIIAIRIRIORRIIRIOIRIOIIIOIIICICAIAR 
20 REM 


30 REM OPERACIONES CON VECTORES 

40 REM : : 

50 REM EN EL ESPACIO AF IN -EUCLIDEO 
60 REM 


70 REM ARRRRRRRRRAROROROROOROROARRERORDEARRORORRORDRRRRDOORIIOOOO OI III III IIA A 
100 PRINT 

110 PRINT "OPERACIONES CON VECTORES EN EL ESPACIO AFIN EUCLIDEO" 

120 PRINT 

130 G$="GRADOS” 

140 M$="MINUTOS" 

150 S$="SEGUNDOS" 

160 PRINT 

170 PRINT 

180 PRINT "VECTOR V : COORDENADAS X,Y,Z ”; 
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190 INPUT X1,Y1,Z1 
ZOO PRINT "VECTOR W : COORDENADAS —X,Y,Z "5; 
210 INPUT X2,Y2,22 
220 PRINT 
230 PRINT 
240 PRINT "EL VECTOR SUMA ES VW = "3" ("3xX14x23","3Y1+Y23","5321+2 
250 PRINT "EL VECTOR DIFERENCIA ES V-W = "3" ("3xX1-X23","3W1-Y23","32Z1-2 
260 PRINT "EL PRODUCTO VECTORIAL VUXW  = "3 "("3Y1X22-21XVY23","321%Xx2-X E 


RIXVZ-Y1XX23")" 


270 PRINT "EL PRODUCTO ESCALAR ES V.W  = "3X1XX24Y1XY2+21%X22 

280 PRINT 

290 N1=SGR(x1*2+11*2+212) 

300 N2=SQR (X27*2+Y2"2+22"2) 

310 PRINT "EL MODULO DEL VECTOR V ES ="5N1 

320 FRINT "EL MODULO DEL VECTOR W ES ="3N2 

350 K=57?. 29578 

390 D=(X1XX24W1XY2+21X22) / (N1XNZ) 

350 A=ACS(D)XK 

360 Z=A 

370 GOSUB 649 

330 PRINT "ANGULO QUE FORMAN LOS VECTORES V Y W :"363683M3M$3S;5$ 
390 AL=ACS(X1/N1)XK 

300 Z=Al 

410 GOSUB 6449 

420 PRINT "ANGULO QUE FORMAN EL VECTOR V CON EL EJE X :"53656S3M3M$;3S8;3% 
430 A2=ACS(Y1/N1)XK 

440 Z=A2 

450 GOSUB “49 

460 PRINT "ANGULO QUE FORMAN EL VECTOR V CON EL EJE Y :"36;56$3M3M$;355% 
4970 A3J=ACS(21/N1)XK 

4380 2=A3 

450 GOSUB 649 

300 PRINT "ANGULO QUE FORMAN EL VECTOR V CON EL EJE 2 :"36360$3M3M$;S5;535$ 
510 B1=ACS(X2/N2)XK 

520 Z=B1 

530 GOSUB 649 

540 PRINT "ANGULO QUE FORMAN EL VECTOR W CON EL EJE X :"56;56$;M3M$;3;5% 
550 B2=ACS (Y2/N2)XK 

S5é0 Z=E2 

570 GOSUB 649 

580 PRINT "ANGULO QUE FORMAN EL VECTOR W CON EL EJE Y :"56;6%53M3M$;35;53%$ 
590 B3=ACS(22/N2)%XK 

600 Z=B3 

él0 GOSUB 649 

620 PRINT "ANGULO QUE FORMAN EL VECTOR W CON EL EJE Z :"560;36%3M3M$;S;5% 
630 END 

649 REM - SUBRUTINA PARA PASAR A GRADOS, MINUTOS Y SEGUNDOS - 

650 G=INT (2) 

660 M=INT ((2-G)X60) 

670 S=INT(((2-G)X60-M)X60) 

680 RETURN 


ejercicios resueltos: 


>> 


1 > > > — 
e Dados los vectores v(11,37,-9) y w(18,-11,31). Hallar v+w, v-w, 


>o >> 
VXW, V.W, 


> > > > > 

Ivi ; |w] , ángulo que forman v y w, angulo que forman v con 
> 

cada uno de los ejes cartesianos y ángulos que forman w con cada uno de 

los ejes cartesianos. 


SOLUCION : 


294 ESPACIO EUCLIDEO 


OPERACIONES CON VECTORES EN EL ESPACIO AFIN EUCLIDEO 


VECTOR V : COORDENADAS X,Y,Z ? 11 37 rd 

VECTOR W : COORDENADAS X.Y,Z2 ? 18 141 31 
EL VECTOR SUMA ES VW = ( 29 , 26 y 22 ) 

Et VECTOR DIFERENCIA ES V-W = (-2 , 48 ,-490 ) 

El PRODUCTO VECTORIAL V*XW = ( 1048 ,-503 ,-787 ) 

EL PRODUCTO ESCALAR ES V.W = -488 

EL MODULO DEL VECTOR V ES = 39.635842 


EL MODULO DEL VECTOR W ES = 37.496667? 
ANGULO QUE FORMAN LOS VECTORES V Y W 

ANGULO QUE FORMAN EL VECTOR V CON EL EJE 
ANGULO QUE FORMAN EL VECTOR V CON EL EJE 
ANGULO QUE FORMAN EL VECTOR Y CON El EJE 
ANGULO QUE FORMAN EL VECTOR W CON El EJE 
ANGULO QUE FORMAN EL VECTCR W CON EL EJE 
ANGULO QUE FORMAN EL VECTOR W CON El EJE 


109 GRADOS 10 MINUTOS Y? SEGUNDOS 
73 GRADOS 53 MINUTOS 14 SEGUNDOS 
21 GRADOS O MINUTOS 47 SEGUNDOS 

103 GRADOS ? MINUTOS 28 SEGUNDOS 
ól GRADOS 13 MINUTOS 42 SEGUNDOS 
107 GRADOS 3 MINUTOS 33 SEGUNDOS 
34 GRADOS 14 MINUTOS 4 SEGUNDOS 


XxX N-<X 


n= 


pa los vectores v(2,3,-1) y w(4,5,6). Hallar VW, v-w, VXW, 


>> o. > > o — 

V.wW, 171 P | w l, ángulo que forman v y w, ángulo que forman v con cada uno 
: . > . 

de los ejes cartesianos y ángulos que forma w con cada uno de los ejes 

cartesianos. 


SOLUCION :: 


OPERACIONES CON VECTCRES EN EL ESPACIO AFIN EUCLIDEOC 


VECTOR VW : COORDENADAS —X,Y,2 ? 2 3 =1 
VECTOR W : COORDENADAS X,Y,2 7 4 S ó 
EL VECTOR SUMA ES V+W = .8,5) 

=> =7? ) 


( 
EL VECTOR DIFERENCIA ES V-W = (- 
EL PRODUCTO VECTORIAL —VXW ( 


EL PRODUCTO ESCALAR ES V.W = 1 
EL MODULO DEL VECTOR V ES = 3.7416574 
EL MODULO DEL VECTOR W ES = 8.7749644 


ANGULO QUE FORMAN LOS VECTORES V Y W 

ANGULO QUE FORMAN EL VECTOR V CON EL EJE 
ANGULO QUE FORMANM EL VECTOR V CON EL EJE 
ANGULO QUE FORMAN EL VECTOR V CON EL EJE 
ANGULO QUE FORMAN EL VECTOR W CON EL EJE 
ANGULO QUE FORMAN EL VECTOR W CON EL EJE 
ANGULO GUE FORMAN El VECTOR W CON EL EJE 


58 GRADOS 492 MINUTOS 1 SEGUNDOS 
57 GRADOS 41 MINUTOS 18 SEGUNDOS 
3ó GRADOS 41 MINUTOS 57 SEGUNDOS 
105 GRADOS 30 MINUTOS 4 SEGUNDOS 
ó2 GRADOS 52 MINUTOS 51 SEGUNDOS 
55 GRADOS 15 MINUTOS 48 SEGUNDOS 
46 GRADOS 51 MINUTOS 41 SEGUNDOS 


N XXN<X 


ANGULOS EN EL ESPACIO AFIN EUCLIDEO 


introducción: 


Este programa sirve para calcular los siguientes ángulos: 

1.- Angulo entre dos rectas. 

2.- Angulo entre dos planos 

3.- Angulo entre recta y plano. 
Con el fin de dar los resultados en grados, minutos y segundos se ha in- 
troducido una subrutina (linea 750) para pasar de radianes a grados, mi- 


nutos y segundos. 


listado del programa: 


10 REM IRRADIA 
20 REM 


30 REM CALCULO DE ANGULOS 

40 REM 

50 REM EN EL ESPACIO AFIN EUCLIDEO 
60 REM 


70 REM IRRRRRORRORRORROROROARRRROARARRRROARRORRRRRRRRORRRRERORARORAROORORAORORODROORDORDEAREREAAA 
100 PRINT 

110 PRINT "EL PRESENTE PROGRAMA PERMITE CALCULAR LOS SIGUIENTES ANGULOS :” 
120 PRINT 

130 PRINT "1.- ANGULO FORMADO POR DOS RECTAS" 

140 PRINT "2.- ANGULO FORMADO POR DOS PLANOS" 

150 PRINT "3.- ANGULO FORMADO POR RECTA Y PLANO” 

160 PRINT 

170 PRINT 

180 PRINT "SEGUN LA OPCION DESEADA, PULSE EL NUMERO' QUE LE PRECEDE"; 
190 INPUT L 

200 PRINT 

210 PRINT 

220 K=57.29578 

230 G$="GRADOS” 

240 M$="MINUTOS"” 

250 S$="SEGUNDOS" 

260 ON L GOTO 269,359,449 

269 REM - ANGULO FORMADO POR DOS RECTAS - 

270 GOSUB 300 

2830 GOSUB S6é0 

290 P=V1XW1+V2XW2+U3XW3 
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300 
710 
320 
330 
340 
350 
359 
360 
370 
380 
=90 
400 
410 
420 
430 
440 
449 
450 
460 
470 
480 
490 
500 
si0 
320 
330 
540 
750 
760 
770 
780 
290 
800 
810 
3220 
3830 
240 
eso 
3860 
870 
280 
890 
200 
210 
220 
930 
240 
250 
260 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 


ESPACIO EUCLIDEO 


D=P/ (N1%XNZ2) 

A=ACS (D>)XK 

Z=A 

GOSUuB 250 

PRINT "EL ANGULO FORMADO 
GOTO 160 

REM - ANGULO FORMADO POR 
GOSUB 920 

GOSUE 990 
P=A1XAZ+BI1XBZ+C1IXCZ 

D=P/ (MiXM2) 

A=SACS(D)XK 


DOS PLANOS 


POR LAS DOS RECTAS ES 


="3636$3M3M$;5;S$ 


PLANOS ES ="36;6$;M3M$;5;53$ 


Z=A 

SOSUB 750 

PRINT "EL ANGULO FORMADO POR LOS DOS 
GOTO 140 

REM - ANGULO FORMADO POR RECTA Y PLANO - 
GOSUB 800 

GOSUE 920 


P=V1XA1+V2ZXB1+US3XC1 
D=P/(N1XM1) 
A=ASN (D) XK 


Z2=A 

GOSUB 250 

PRINT "EL ANGULO FORMADO POR RECTA Y 
GOTO 160 

END 

REM - SUBRUTINA PARA PASAR A GRADOS, 
G=INT (2) 


M=INT ((2-6)X60) 
S=INT (((2-G)X60-M)X60) 
RETURN 
REM - ENTRADA DE LAS COORDENADAS DEL 
PRINT "INTRODUZCA LAS COORDENADAS 
INPUT V1,V2,VZ 
N1=SQR (V1XAV1+U2ZXUZ4VUZXAVS) 
PRINT 
RETURN 
REN - ENTRADA DE LAS COGRDENADAS DEL 
PRINT "INTRODUZCA LAS COORDENADAS 
INPUT W1,W2,w3 
N2=SQR (W1XW1+W2XW24W3XWJI) 
PRINT 
RETURN 
REM - 
PRINT "SEA EL PLANO DE ECUACION : Al 
PRINT "INTRODUZCA LOS COEFICIENTES A 
INPUT A1,B1,C1 
Mi1=SOQR(A1AAL+B1XB1+C1XC1) 
PRINT 
RETURN 
REM - 
PRINT 
PRINT 
INPUT A2,B2,C2 
M2=SQR (AZXA2Z+B2XB2+C2XC2) 
PRINT : 
RETURN 


"SEA EL PLANO DE ECUACION : 


ENTRADA DEL VECTOR NORMAL DEL PLANO 


ENTRADA DEL VECTOR NORMAL DEL PLANO 
A2 X + B2 Y + C2 
"INTRODUZCA LOS COEFICIENTES A2,B2,C2"; 


PLANO ES ="36;6$5;M;3M$;35;S%$ 


MINUTOS Y SEGUNDOS 


VECTOR DIRECTOR DE LA RECTA R - 
DEL VECTCUR DIRECTOR DE LA RECTA R 


VECTOR DIRECTOR DE LA RECTA R” - 
DEL VECTOR DIRECTOR DE LA RECTA R' 


ALFA - 
X + Bi Y + Cl 
1,B1,C1"”; 


- 


+ Di 


o" 


BETA - 
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ejercicios resueltos: 


lonaziar el ángulo formado por las rectas: 


e 
a: = 


z xl DY FS Ad 
3 4 y 5 3 


6 
SOLUCION: 


SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE? 1 


INTRODUZCA EL LAS COORDENADAS DEL VECTOR DIRECTOR DE LA RECTA R ? 2 3 
4 
INTRODUZCA EL LAS COORDENADAS DEL VECTOR DIRECTOR DE LA RECTA R”* ? 5 6 


- 
eS 


EL ANGULO FORMADO POR LAS DOS RECTAS ES = 7? GRADOS 28 MINUTOS 32 SEGUNDOS 


- + = 
Za Hallar el ángulo formado por la recta: E = ra = E y el pla 


no 2x + 5y - z + 3 = 0. 
SOLUCION: 


SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE? 3 


INTRODUZCA EL LAS COORDENADAS DEL VECTOR DIRECTOR DE LA RECTA R ? 1 


a] 
« 


an 


SEA EL PLANO DE ECUACION : Al X + B1 Y + C1 2 + Di = C 
INTRODUZCA LOS COEFICIENTES A1,B1,C1? 2 a] md 


EL ANGULO FORMADO POR RECTA Y PLANO ES = 75 GRADOS 9 MINUTOS 53 SEGUNDOS 


3. Hallar el ángulo formado por los planos de ecuaciones: 
X-y3+7Z2+3=0 y "3Ix + 5y +92 - 2=0 
SOLUCION: 


SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE? 2 
SEA EL PLANO DE ECUACION : Al X + B1 Y + C1 Z + Di = O 
INTRODUZCA LOS COEFICIENTES A1,B1,C1”? 1 A 7 


SEA EL PLANO DE ECUACION : A2 X + B2 Y + C2 Z + D2 = O 
INTRODUZCA LOS COEFICIENTES A2,B2,C2?-3 5 9 


EL ANGULO FORMADO POR LOS DOS PLANOS ES = 44 GRADOS 3 MINUTOS 46 SEGUNDOS 


DISTANCIAS EN EL ESPACIO AFIN EUCLIDEO 


introducción: 


El presente programa permite calcular las siguientes distancias 


en el espacio afín euclideo: 


1.- Distancia 


2.- Distancia 


3.- Distancia 


4.- Distancia 


5.- Distancia 


entre 
de un 
entre 
de un 


entre 


puntos. 

punto a una recta. 
rectas. 

punto a un plano. 


planos. 


Para el cálculo de estas distancias, el programa analiza las dis- 


tintas posiciones relativas que se pueden presentar. 


listado del programa: 


REM RR 2 AA 


10 

z0 

30 

40 

50 

60 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
249 
250 
260 


”> 
£/ 


REM 
REM 
REM 
REM 
REM 


EN 


CALCULO DE DISTANCIAS 


EL 


ESPACIO AFIMN E U- € L. TD E, 0 


REM RRA 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


"ESTE PROGRAMA CALCULA LAS SIGUIENTES DISTANCIAS” 


"i.- DISTANCIAS ENTRE PUNTOS” 
"2.- DISTANCIA DE UN PUNTO A UNA RECTA" 
"3.- DISTANCIAS ENTRE RECTAS” 
"4.- DISTANCIA DE UN PUNTO A UN PLANO" 
"S.- DISTANCIA ENTRE PLANOS” 


"SEGUN LA OPCION QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE”; 


L 


UL$="UNIDADES LINEALES” 


PRINT: 


PRINT 


ON L GOTO 249,299,389,579,639 
CALCULO DE LA DISTANCIA ENTRE PUNTOS - 


REM - 
GOSUB 
GOSUB 


1000 
1050 


D=SQR ( (X1-XO)X%(X1-X0)+ (Y1-YO)X(Y1-YO)+(21-20)X(Z1-2Z0)) 
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280 PRINT "LA DISTANCIA ENTRE LOS PUNTOS P Y Q ES =";D;5ULS 
270 GOTO 180 

299 REM - CALCULO DE LA DISTANCIA DE UN PUNTO A UNA RECTA - 
300 GOSUB 1000 

310 GOSUB 1100 

320 Ul=V2* (Z1-Z0)-V3X(Y1-YO) 

330 U2=U3X(X1-X0)-Vi*(21-Z0) 

340 US=V1*X(Y1-YO) -V2%* (X1-X0) 

350 P=SQR (U1XU1+U2ZXUZ+UIAUV) 

360 D=P/N1 

370 PRINT "LA DISTANCIA DEL PUNTO P A LA RECTA DADA ES =";D;ULS 
380 GOTO 180 

389 REM - CALCULO DE LA DISTANCIA ENTRE RECTAS - 

390 GOSUB 1100 

400 GOSUB 1170 

410 Ul=V2XW3-V3XWZ2 

420 U2=VI3XW1-V1XW3 

439 US=V1XW2-W1XVZ 

440 N2=SOR (ULXU1+U2ZXUZ+USXAUZ) 

459 IF N2=0 THEN GOTO 500 

460 P=(X2-X1)XU1+ (Y2-Y1)XU2+ (22-Z1)XU3 

470 D=ABS(P/N2) : 

430 PRINT "LA DISTANCIA ENTRE LAS RECTAS R Y R”? ES ="5;D;5UL$ 
490 GOTO 180 

500 PRINT "LAS RECTAS SON PARALELAS Y LA DISTANCIA ES ="; 
510 Ul=V2X (21-22) -V3X(Y1-Y2) 

320 U2=U3X (x1-X2)-V1iX (21-22) 

530 U3I=V1X(Y1-Y2)-V2X(X1-X2) 

340 P=SQR (UVU1XUY1+UZAUZ+UIXUV) 

950 D=P/N1 

3560 PRINT D;ULs 

570 GOTO 180 

3579 REM - CALCULO DE LA DISTANCIA DE UN PUNTO A UN PLANO - 
580 GOSUB 1000 

590 GUSUB 1240 Ñ 

600 P=A1XXO+B1XYO+C1XZO+D1 

610 D=ABS(P/N1) 

620 PRINT "LA DISTANCIA DEL PUNTO P AL PLANO DADO ES ="3D;ULsS 
630 GOTO1SO 

639 REM - CALCULO DE LA DISTANCIA ENTRE PLANOS - 

ó£40 GOSUB 1240 

650 GOSUB 1310 

660 Ul=B1XC2-C1XB2 

670 U2=C1XA2-A1XC2 

680 U3=A1XE2-A2ZXB1 

£90 M=SQR (U1XU1+UZXUZ+UIXUS) 

700 1F mM=0 THEN GOTO 230 

2710 PRINT "LA DISTANCIA ENTRE LOS PLANOS DADOS ES CERO, PUES SON SECANTES”" 
720 GOTO1LSO 

730 D=ABS((D1/N1)- (D2/N2)) 

740 PRINT "LOS PLANOS SON PARALELOS Y SU DISTANCIA ES =";D;ULS 
750 GOTO 180 

760 END 

1000 REM - ENTRADA DE LAS COORDENADAS DEL PUNTO P - 

1010 PRINT "INTRODUZCA LAS COORDENADAS DEL PUNTO P"; 

"1020 INPUT X0,YO,ZO 

1030 PRINT 

1040 RETURN 

1050 REM - ENTRADA DE LAS COORDENADAS DEL PUNTO Q - 

1060 PRINT "INTRODUZCA LAS COORDENADAS DEL PUNTO Q”; 

1070 INPUT X1,Y1,Z1 

10830 PRINT 

1090 RETURN 


300 ESPACIO EUCLIDEO 


1100 PRINT "INTRODUZCA LAS COORD. DEL VECTOR DIRECTOR DE LA RECTA R "; 
1110 INPUT V1,UZ2,V3 

1120 N1i=SQR(V1XV1+U2ZXUZ+VSXVI) 

1130 PRINT "INTRODUZCA LAS COORD. DE UN PUNTO DE LA RECTA R”; 

1140 INPUT X1,Y1,Z1 

1150 PRINT 

1160 RETURN 

1170 PRINT "INTRODUZCA LAS COORD. DEL VECTOR DIRECTOR DE LA RECTA R”"; 
1180 INPUT W1,wW2,wW3 

1190 N2=SQOR (WiXW1+W2XW2+W3XWJ3 ) 

1200 PRINT "INTRODUZCA LAS COORD. DE UN PUNTO DE LA RECTA R'*"; 

1210 INPUT X2,Y2,22 

1220 PRINT 

1230 RETURN 

1240 REM - ENTRADA DE DATOS DE UN PLANO - 


1250 PRINT "SEA EL PLANO DE ECUACION : Al X + Bl Y + C1 Z + D1 = O” 
1260 PRINT "INTRODUZCA LOS COEFICIENTES A1,B1,C1,D1"; 
1270 INPUT A1,B1,C1,D1 
1280 N1=SAR(A1XAAL+BIXBI+C1XC1) 
1290 PRINT 
1300 RETURN 
1310 REM - ENTRADA DE DATOS DE OTRO PLANO - 
1320 PRINT "SEA EL PLANO DE ECUACION : A2 X + B2 Y + C2 Z + D2 = O” 
1330 PRINT "INTRODUZCA LOS COEFICIENTES A2,B2,C2,D2"; 
1340 INPUT AZ2,B2,C2,D2 
1350 N2=SQR(A2XAZ2+B2XB2+C2XC2) 
13650 PRINT 
1370 RETURN 

o o o 

e 
ejercicios resueltos: 
Lusurias la distancia del punto P (2,4,-7) a la recta: 
REL a VAR EL 
1 2 6 

SOLUCION: 
SEGUN LA OPCION QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE? 2 
INTRODUZCA LAS COORDENADAS DEL PUNTO P? 2 4 -? 
INTRODUZCA LAS COORD. DEL VECTOR DIRECTOR DE LA RECTA R ? 1 2 é 
INTRODUZCA LAS COORD. DE UN PUNTO DE LA RECTA R-1 5 -2 


LA DISTANCIA DEL PUNTO P A LA RECTA DADA ES = 3.3062849 UNIDADFS LINEALES 


Za Hallar la distancia entre el punto P(1,5,9) y el plano 9x+2y+3z+1=0 
SOLUCION: 


SEGUN LA OPCION QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE? 4 


INTRODUZCA LAS COORDENADAS DEL PUNTO P? 1 E] 9 


SEA EL PLANO DE ECUACION : Al X + Bl Y + C1 2 + Di = O 
INTRODUZCA LOS COEFICIENTES A1,B1,C1,D1 9 2 3 1 


LA DISTANCIA DEL PUNTO P AL PLANO DADO ES = 4.8476799 UNIDADES LINEALES 
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AA la distancia entre las rectas: 


z e O inet A 
1 SÍ Y E 0 0 


SOLUCION: 


SEGUN LA OPCION QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE? 3 


INTRODUZCA LAS COORD. DEL VECTOR DIRECTOR DE LA RECTA R ? 2 1 2d 
INTRODUZCA LAS COORD. DE UN PUNTO DE LA RECTA R O 1 [e] 
INTRODUZCA LAS COORD. DEL VECTOR DIRECTOR DE LA RECTA R” 1 o 0 
INTRODUZCA LAS COORD. DE UN PUNTO DE LA RECTA R”*? 2 3 1 


LA DISTANCIA ENTRE LAS RECTAS R Y R” ES = 2.1213203 UNIDADES LINEALES 


A ualtar la distancia entre los planos 2x + 3y - 7z + 1=0 y 
4x + 6y - 14z + 5 = 0. 
SOLUCION: 


SEGUN LA OPCION QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE? 5 


SEA EL PLANO DE ECUACION : Al X + B1 Y + C1 Z + D1 = O 
INTRODUZCA LOS COEFICIENTES A1,B1,C1,Di 2 3 37 1 
SEA EL PLANO DE ECUACION : A2 X + B2 Y + C2 Z + D2 = O 
INTRODUZCA LOS COEFICIENTES A2,B2,C2,D27 4 =) -14 Ss 


LOS PLANOS SON PARALELOS Y SU DISTANCIA ES = .19050019 UNIDADES LINEALES 


AREAS Y VOLUMENES EN EL ESPACIO AFIN EUCLIDEO 


introducción: 


Este programa permite calcular las siguientes áreas y volumenes: 
1.- Area de un triángulo en el espacio. 

2.- Area de un paralelogramo en el espacio. 

3.- Volúmen del tetraedro. 

4.- Volúmen del paralelepipedo. 


Para su ejecución es necesario introducir las coordenadas de los 


vértices. 


En el caso del paralelogramo basta con conocer tres de los vérti- 


ces, pues el otro queda univocamente determinado. 


En el caso del paralelepipedo de vértices ABCDEFGH basta con cono 


cer los vértices A,B,C, y D que proporcionen las dimensiones del parale- 


lepipedo. 


listado del programa: 


10 
20 
30 
40 
50 
60 
70 
100 
110 
120 
130 
140 
150 


REM IRRADIA III III RIIIE 
REM 


REM CALCULO DE AREAS Y VOLUMENES 
REM 
REM EN EL ESPACIO. AAFTN EUCLIDECO 
REM 


REM FORROS III III 
PRINT 

PRINT "ESTE PROGRAMA PERMITE CALCULAR LAS AREAS Y VOLUMENES SIGUIENTES :" 
PRINT 

PRINT 

PRINT "1.- AREA DEL TRIANGULO DETERMINADO POR TRES PUNTOS NO ALINEADOS" 
PRINT "2.- AREA DEL PARALELOGRAMO" 
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160 PRINT *3.- VOLUMEN DEL TETRAEDRO DETERMINADO POR 4 PUNTOS NO COPLANARIOS"” 
170 PRINT "4.- VOLUMEN DEL PARALELEPIPEDO" 

180 PRINT 

190 PRINT 

200 FRINT "SEGUN LA OPCION QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE"; 

210 INPUT L 

220 PRINT 

230 PRINT 

240 UC$="UNIDADES CUADRADAS": iU$="UNIDADES CUBICAS” 

250 ON L GOTO 259,299,39489,309 

2359 REM - CALCULO DEL AREA DE UN TRIANGULO EN EL ESPACIO CONUCIDOCS SUS VERTICES- 
zZzá0 GOSUB 6400 

270 D=9M/2 

232 PRINT "EL AREA DEL TRIANGULO ABC ES =";D;UC$8 

290 SOTO 180 

299? REM - CALCULO DEL AREA DE UN PARALELOGRAMO - 

300 PRINT "POR SER FARALELOGRAMO, EASTA CON DAR LAS COORD. DE TRES VERTICES" 
310 PRINT 

320 GOSUB ¿060 

330 PRTNT "EL AREA DEL FARALELOGRAMO ABCD ES =”"3M;UC$ 

340 GOTO 180 

249 REM - CALCULO DEL VOLUMEN DE UN TETRAEDRO DETERMINADO POR CUATRO PUNTOS - 
350 REM - NO COPLANARIOS - 

360 GUSUB 500 

370 GOSUB 750 

320 D=P/S 

390 PRINT "EL VOLUMEN DEL TETRAEDRO ABCD ES = "3D;Us$ 

400 GOTO 180 

309 REM - CALCULO DEL VCLUMEN DEL PARALELEFIFEDO - 

410 PRINT "POR SER PARALELEPIDEDO BASTA DAR LAS COORDENADAS DE LCS CUATRO" 
420 PRINT "VERTICES A,E,C.,D, QUE DEFINEN SUS DIMENSIONES" 

470 FRINT 

440 GOSUR 600 

4350 GOSUB 750 


450 D=P 
470 PRINT "EL VOLUMEN DEL PARALELEPIPEDO ABCDEFGH ES =";D3U+* 
480 GOTO 120 

490 END 


600 REM - ENTRADA DE LAS COGRDENADAS DE TRES PUNTOS - 
610 PRINT "INTRODUZCA LAS COORD. DEL FUNTO A”; 

620 INPUT x0,YO0,Z20 

6230 PRINT 

6140 PRINT "INTRODUZCA LAS COORD. DEL PUNTO B”"; 

650 INPUT Xi,Y1,Z1 

660 PRINT 

670 FRINT "INTRODUZCA LAS COORD. DEL PUNTO C”; 

6380 INPUT X2,Y2,22 

690 Ul=(Y1-YO0)X(22-20)-(Z1-ZO)X(Y2-YO) 

700 U2=(Z1-Z0)*X (X2-X0)- (X1-X0)X(22-Z0) ' 
710 Ul=(Xx1-X0)*(12-YO)-(Y1 -YO)X(Xx2-X0) 

720 M=SQR (VI1XU1+U2XUZ2+USXAUS) 

730 PRINT 

740 FETURN 

750 PRINT "INTRODUZCA LAS COORD. DEL PUNTO D”; 

760 INPUT X3,Y3,Z23 

770 P=ABS ( (X3-X0)XU1+(Y3-Y0) XU2+ (23-20) XU3) 

780 PRINT 

790 RETURN 


304 ESPACIO EUCLIDEO 


ejercicios resueltos: 


lina el área de un triángulo determinado por los vértices A,B,C 
siendo A(2,3,-5), B(1,9,0) y C(0,-2,3) 
SOLUCION: 


SEGUN LA OPCION QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE? 1 


INTRODUZCA LAS COORD. DEL PUNTO A? 2 3 -5 
INTRODUZCA LAS COORD. DEL PUNTO B? 1 9 o 
INTRODUZCA LAS COORD. DEL PUNTO C? OU =2 3 


EL AREA DEL TRIANGULO ABC. ES = 37.489999 UNIDADES CUADRADAS 


e Hallar el volúmen del tetraedro de vértices A(2,-1,4), B(3,1,8), 
C(0,8,7) y D(2,5,0) 
SOLUCION: 


SEGUN LA OPCION QUE DESEE, PULSE EL NUMERO QUE LE PRECEDE? 3 


INTRODUZCA LAS COORD. DEL PUNTO A”? 2 -1 4 
INTRODUZCA LAS COCURD. DEL PUNTO B? 3 1 8 
INTRODUZCA LAS COORD. DEL PUNTO C”? O Ss ? 
INTRODUZCA LAS COORD. DEL PUNTO D? 2 5 o 
EL VOLUMEN DEL TETRAEDRO ABCD ES =  19.ó66667? UNIDADES CUBICAS 


c(0,8,7) 


B(3,1,8) 


D(2,5,0) 


MOVIMIENTOS EN EL ESPACIO 


introducción: 


El presente programa permite calcular las coordenadas del trans- 
formado de un punto P en los siguientes movimientos: 


1.- Translación en el espacio. 


2:- Simetría central. 
3.- Simetría axial. 
4.- Simetría especular. 


5.- Giro en el espacio. 

Si se desea se puede introducir en 1075 una instrucción con el 
fin de redondear a 2, 3, etc, cifras decimales los valores de X31Y3123 
que son las coordenadas del punto P' transformado de P. 

Si se quiere hacer productos de movimientos, basta con irlos eje- 
cutando en el orden pedido, dado que el producto de movimientos no es 


conmutativo. 


listado del programa: 


10 REM IRRSIOOIOIIOIIOIOIIOIIOIIOOIOOIIOIOIOIORIOIORIOIOIORIOOOROOOIOOOIOOOARAAAAR A 
20 REM 


30 REM MOVIMIENTOS EN EL 

40 REM 

50 REM ESPACIO 

60 REM 

70 REM IRSA 
100 PRINT 

110 PRINT "ESTE PROGRAMA PERMITE CALCULAR LO SIGUIENTE :” 

120 PRINT 


130 PRINT "1.- TRASLACION EN EL ESPACIO" 

140 PRINT "2.- SIMETRIA CENTRAL EN EL ESPACIO” 

150 PRINT "3.- SIMETRIA AXIAL EN EL ESPACIO" 

160 PRINT "34.- SIMETRIA ESPECULAR EN EL ESPACIO" 

170 PRINT "S.- GIRO RESPECTO A UN EJE QUE PASA POR EL ORIGEN" 

200 PRINT 

210 PRINT 

220 PRINT "SEGUN EL MOVIMIENTO DESEADO, PULSE EL NUMERO QUE LE PRECEDE"; 
230 INPUT L 

240 PRINT 
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250 
260 
269 
270 
280 
290 
300 
310 
320 
3730 
340 
349 
350 
360 
370 
380 
390 
400 
3410 
420 
429 
430 
440 
450 
460 
470 
420 
490 
500 
510 
520 
530 
540 
550 


co 


-— 


560 
570 
580 
590 
600 
$610 
620 
6730 
éd0 
650 
662 
£69 
670 
680 
690 
790 
710 
720 
730 
790 
730 
260 
270 
780 
790 
go00 
810 
1000 


MOVIMIENTOS EN EL ESPACIO 


PRINT 

ON L GOTO 269,349,429.559,669 

REM - TRASLACION EN EL ESPACIO - 

PRINT "INTRODUZCA LAS COORDENADAS (V1,V2,V3) DEL VECTOR GUIA”; 
INPUT V1,V2,V3 

GOSUB 1000 

X3=X0+V1 

YI=Y0+V2 

Z3=20+V3 

GOSUB 1050 

GaTO 200 

REM - SIMETRIA CENTRAL EN EL ESPACIO - 

PRINT "INTRODUZCA LAS COORDENADAS DEL CENTRO DE SIMETRIA"; 
INPUT X2,Y2,Z 

GOSUB 1000 

X3=2%*X2-X0 

Y3=2*Y2-YO 

23=2*Z2-ZO 

GOSUB 1050 

GOTO 200 

REM - SIMETRIA AXIAL EN EL ESPACIO - 

PRINT "INTRODUZCA LAS COORD. DEL VECTOR DIRECTOR DEL EJE DE SIMETRIA" 
INPUT V1,V2,V3 

PRINT 

PRINT "INTRODUZCA LAS COORDENADAS DE UN PUNTO DEL EJE DE SIMETRIA" 
INPUT X1,Y1,Z1 

GOSUB 1000 

M=(XO-X1)*V1+ (YO-Y1>KUZ+(Z0-Z1)XVI 

N=V LV 1+UZXUZ+UIAVI 

X3=2XX1-X0+2%MX£V1 /N 

V3=2XY1-YO+ ZXMXVZ/N 

ZI=2XZ1-ZO+2XMEV3/0N 

GOSUB 1050 


GaTO 200 
REM - SIMETRIA ESPECULAR EN EL ESPACIO 
PRINT "SEA EL PLANO DE SIMETRIA DE ECUACION : Ax + EY + CZ2. + D= 0” 


PRINT "INTRODUZCA LOS COEFICIENTES A,B,C,D"; 

IMPUT A,B,C,D 

GOSUB 1000 

M=AXA+BXB+CXC 

N=AXXO+EXYO4CAZO+D 

X3=X0-2kXAXRN/M 

Y3=Y0-2ABXN/M 

Z3=ZO0-Z2XCAN/M 

GOSUB 1050 

GOTO 200 

REM - GIRO RESPECTO A UN EJE QUE PASA POR EL ORIGEN - 

PRINT "INTRODUZCA LAS CORDENMADAS DEL VECTOR DIRECTOR DEL EJE"; 

INPUT V1,VZ2,V3 

GOSUB 1000 

M=SOR (V1XAV1+UZAVZ+VIXVZ) 

Wi=V1/M 

W2=V42/M 

W3=V3/M 

PRINT 

PRINT "INTRODUZCA EL ANGULO DE GIRO EN RADIANES"; 

INPUT R 

T=1-COS(R) 

X3=(TXWIXW1+COS(R))XAXO+ (TIWIXW2+WIXSIN(R))XYO+ (TIWILXW3-WZXSIN(R))XZO 
Y3=(TAWIXWZ-W3XSIN(R))XXO+ (TWZXWZ+COS(R))AYO+ (TIWZXWZ+WIXSIN(R))XZO 
23=(TAWIXWZ+W2ZXSIN(R))XXO+ (TIW2ZXW3-WIXSIN(R))XAYO+ (TXWIXW3+COS(R))XZO 
GOSUB 1050 E 

REM - ENTRADA DE LAS COORDENADAS DEL PUNTO P A TRANSFORMAR - 
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1010 PRINT 


1020 PRINT "INTRODUZCA LAS COORDENADAS DEL PUNTO P.— QUE DESEA TRANSFORMAR”; 


1030 INPUT X0,YO,Z0 

1040 RETURN 

1050 REM - SALIDA DEL RESULTADO - 

106C PRINT 

1070 PRINT 

1080 PRINT "EL HOMOLOGO DEL PUNTO DADO ES ("53X353","3Y33","3235 
1090 RETURN 


ejercicios resueltos: 


Libliss el simétrico del punto P(1,2,-3) respecto de 
ecuacion: E 
2 -1 3 
SOLUCION: 


SEGUN EL MOVIMIENTO DESEADO, PULSE EL NUMERO QUE LE PRECEDE? 3 


INTRODUZCA LAS COORD. DEL VECTOR DIRECTOR DEL EJE DE SIMETRIA 
2 NZ =1 3 


INTRODUZCA LAS COORDENADAS DE UN PUNTO DEL EJE DE SIMETRIA 
? 1 3 2 


INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE DESEA TRANSFORMAR? 
-3 


EL HOMOLOGO DEL FUNTO DADO ES (-3 , 6, 1) 


PA Hallar el simétrico del punto P(2,1,0) respecto del 
ción: -x + 5y + 4z + 2 = 0. 
SOLUCION: 


SEGUN EL MOVIMIENTO DESEADO, PULSE EL NUMERO QUE LE PRECEDE? 4 


SEA EL PLANO DE SIMETRIA DE ECUACION : AX + BY + CZ + D= O 
INTFODUZCA LOS CCGEFICIENTES A,B,C,D?-1 5 4 


10) 


INTRODUZCA LAS COORDENÁDAS DEL PUNTO P. QUE DESEA TRANSFORMAR? 
0 


la recta de 


plano de ecua 


El. HOMOLOGO DEL PUNTO DADO ES ( 2.2380952 ,-.19047619 ,-.295238095 ) 


HOMOTECIA EN EL ESPACIO 


o j eo / Si 
introducción: 
El presente programa permite calcular el homólogo de un punto 
P (xi 1Y7127) en una homotecia de C(x ¿Y 120) y razón K. También calcula 


los centros de homotecia y las razones en que dos esferas E, Y E, se 


2 
corresponden. Para ello es preciso, introducir los centros y los radios 


de cada una de las esferas. 


listado del programa: 


10 REM JARIRACIOIOOARAIRIRIOIRIRRIORIRAIRRRIRIRIRIRIRRIRRIRRIRIRRIRRIRRIRRRRRRIRRRIRRIRRIRRIRA 
20 REM 


20 REM HOMOTECIA EN EL 
40 REM 

SO REM ESPACIO 

£0 REM 


70 REM 4294092009022 
100 PRINT 

110 PRINT "ESTE PROGRAMA PERMITE CALCULAR LO SIGUIENTE :”" 

120 PRINT 

130 PRINT "1.-EL HOMOTETICO DE UN PUNTO P(X1,Y1,Z1) EN UNA HOMOTECIA DE RAZON K” 
140 PRINT ” Y CENTRO EL PUNTO C (X0,Y0,Z0)” 

150 PRINT "2.-LOS CENTROS DE HOMOTECIAS DE DOS ESFERAS HOMOTETICAS” 
140 PRINT 

170 PRINT 

130 PRINT "SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE"; 
190 INPUT L 

200 PRINT 

210 PRINT 

220 IF L=2 THEN GOTO 369 

229 REM - CALCULO DEL HOMOTETICO DE UN PUNTO - 

2730 PRINT "INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA C ”; 
240 INPUT X0,YO,ZO 

250 PRINT "INTRODUZCA LA RAZON DE HOMOTECIA K ="; 

260 INPUT K 

270 PRINT 

280 PRINT "INTRODUZCA LAS COOR. DEL PUNTO P QUE QUIERE TRANSFORMAR”; 
290 INPUT X1,Y1,Z1 

300 PRINT 

310 PRINT 

320 X2=X0%X(1-K)+KXX1 

330 Y2=YO*X(1-K)+KXY1 
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E a a 


390 22=20X(1-K)+KXZ1 

350 PRINT "EL HOMOTETICO DEL PUNTO P ES EL PUNTO P”* (*"3X23","3Y23","3223")" 
3é0 GOTO 160 

369 REM - CALCULO DE LOS CENTROS DE HOMOTECIA DE DOS ESFERAS - 

370 PRINT "INTRODUZCA LAS COORD. DEL CENTRO DE LA ESFERA El”; 

380 INPUT A1,B1,C1 

390 PRINT "INTRODUZCA EL RADIO DE LA ESFERA El ”; 

400 INPUT Ri 

410 PRINT 

420 PRINT "INTRODUZCA LAS COORD. DEL CENTRO DE LA ESFERA E2*; 

430 INPUT A2,B2,C2 

440 PRINT "INTRODUZCA EL RADIO DE LA ESFERA E2 "; 

4509 INPUT R2 

460 PRINT 

970 XD=(A2X*R1-R2XA1)/(R1-R2) 

4280 YD=(B2XR1-RZXE1)/(R1-R2) 

490 ID=(C2XFR1-R2XC1)/(R1-RZ) 

500 XI=(A2XR1+R2XA1)/(R1+R2) 

310 YI=(E2XR1+R2XE1)/(R1+R2) 

520 ZI=(C2XR1I+R2XC1)/(R1+R2) 

530 PRINT 

540 PRINT "EL CENTRO DE HOMOTECIA DIRECTA ES - ("3XD53","3YD3","32D3"”")" 
550 PRINT "RAZON";3R2/R1 

560 PRINT 

570 PRINT "EL CENTRO DE HOMOTECIA INVERSA ES — ("3xXI3","3YI53","3213”")” 
580 PRINT "RAZON”5-R1/R2 

590 GOTO 160 

éC00 END 


ejercicios resueltos: 


Lua las esferas de ecuaciones: x+yi+2tza y ty 6) ta? = 16 
Hallar los centros de homotecia directa e inversa, asi como las 
razones de homotecia en que dichas esferas se corresponden. 
SOLUCION: 


SEGUN LA CPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE? 2 


INTRODUZCA LAS COORD. DEL CENTRO DE LA ESFERA El? O 0 9 
INTRODUZCA EL RADIO DE LA ESFERA El ? 2 


INTRODUZCA LAS COORD. DEL CENTRO DE LA ESFERA E2? O ' é o 
INTRODUZCA EL RADIO DE LA ESFERA E2 ? 4 


EL CENTRO DE HOMOTECIA DIRECTA ES (0 ,-6,0) 
RAZON 2 

EL GENTRO DE HOMOTECIA INVERSA ES (0,2.,0) 
RAZON -.5 


¿EN una homotecia de centro C(2,-1,6) y razón K = 6. Hallar el 
homólogo del punto (-1,-3,2). 
SOLUCION: 


310 HOMOTECIA EN EL ESPACIO 


ESTE PROGRAMA PERMITE CALCULAR LO SIGUIENTE : 
1.-EL HOMOTETICO DE UN PUNTO P(X1,Y1,Z1) EN UNA HOMOTECIA DE RAZON K 


Y CENTRO EL PUNTO C (X0,YO,Z0) 
2.-LOS CENTROS DE HOMOTECIAS DE DOS ESFERAS HOMOTETICAS 


SEGUN LA OPCION DESEADA, PULSE EL NUMERO QUE LE PRECEDE? 1 
INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA C ? 2 1 
INTRODUZCA LA RAZON DE HOMOTECIA K =? 6 


INTRODUZCA LAS COOR. DEL PUNTO P QUE QUIERE TRANSFORMAR? -1 -3 


EL HOMOTETICO DEL PUNTO P ES EL PUNTO P”* (-16 ,-13 ,-18 ) 


SEMEJANZA EN EL ESPACIO 


introducción: 


Este programa sirve para calcular el transformado de un punto P 


en una semejanza en el espacio. 


Se llama semejanza en el espacio, al producto de un movimiento en 


el espacio por una homotecia o viceversa. 


listado del programa: 


10 

20 

30 

40 

50 

£0 

70 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
z00 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
309 
310 
320 
330 


REM ISR 02000090000982090008NN000000000OIOOREEKAAAS 


REM 
REM 
REM 
REM 
REM 


SEMEJANZA EN 


ESPACIO 


EL 


REM IRRADIA RAR 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
PRINT 
PRINT 


"ESTE PROGRAMA PERMITE CALCULAR LO SIGUIENTE 


"1,- 
de 
"4,- 
TE 
"6, - 
"9.- 
"o, - 


TRASLACION POR HOMOTECIA” 

HOMOTECIA POR TRASLACION” 

SIMETRIA CENTRAL POR HOMOTECIA" 
HOMOTECIA POR SIMETRIA CENTRAL” 
SIMETRIA AXIAL POR HOMOTECIA" 
HOMOTECIA POR SIMETRIA AXIAL” 

SIMETRIA ESPECULAR POR HOMOTECIA” 
HOMOTECIA POR SIMETRIA ESPECULAR” 

GIRO DE EJE QUE PASA POR EL ORIGEN POR 


"10.-HOMOTECIA POR GIRO DE EJE QUE PASA POR 


"SEGUN EL MOVIMIENTO DESEADO, 


L 


ON L GOTO 309,369,3429,489,549,609,669,729,789,849 
TRASLACION FOR HOMOTECIA - 


REM - 
GOSuB 
GOSUR 
GOSUB 


1000 
1200 
1860 


HOMOTECIA" 
EL ORIGEN” 


PULSE EL NUMERO QUE LE PRECEDE”; 


312 SEMEJANZA EN EL ESPACIO 


340 5O=3'JB 1750 

3509 GOSUE 1050 

340 GOTO 230 

367 REM - HOMOTECIA POR TRASLACION - 

370 GOSUB 1000 

380 GOSUB 1750 

390 GOSUB 1860 

300 GOSUB 1200 

3410 GOSUB 1050 

470 GOTO 230 

429 REM - SIMETRIA CENTRAL POR HOMOTECIA - 
430 GOSUB 1000 

440 GOSUB 1279 

450 GOSUB 1860 

460 GOSUB 1750 

470 GOSUB 1050 

4380 GOTO 230 

489 REM - HOMOTECIA POR SIMETRIA CENTRAL - 
490 GOSUB 1000 

500 GOSUB 1750 

510 GOSUB 1860 

520 GOSUB 1279 

530 GOSUB 1050 

540 GOTO 230 

549 REM - SIMETRIA AXIAL POR HOMOTECIA - 
550 GOSUB 1000 

50 GOSUB 1350 

570 GOSUB 1860 

580 GOSUB 1750 

5720 GOSUB 1050 

600 GOTO 230 

609 REM - HOMOTECIA POR SIMETRIA AXIAL - 
610 GOSUB 100€ 

620 GOSUB 1750 

630 GOSUB 1860 

640 GOSUB 1350 

430 GOSUB 1050 

£60 GOTO 230 

€? REM - SIMETRIA ESPECULAR POR HOMOTECIA - 
670 GOSUB 1000 

680 COSUB 1480 

670 GOSUB 1860 

700 GOSUB 1750 

710 GOSUB 1050 

720 GCUTO 230 

729 REM - HOMOTECIA POR SIMETRIA ESPECULAR - 
730 GOSUB 1000 

740 GOSUB 12750 

750 GOSUB 1860 

760 GOSUB 1480 

770 GOSUB 1050 

720 GOTO 230 

729 REM- GIRO DE EJE QUE PASA POR EL ORIGEN POR HOMOTECIA - 
790 GOSUB 1000 

800 GOSUB 1590 

g10 GSOSUB 1860 

320 GOSUB 1750 

830 GOSUB 1050 

240 GOTO 230 

349 REM - HOMOTECIA POR GIRO DE EJE QUE PASA POR EL ORIGEN - 
850 GOSUB 1000 

860 GOSUB 1750 

870 GOS!JB 1860 
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o q 02 _——— AAC ——_— 22222222 


se0 GAasuB 1590 

£90 GOSUB 1050 

200 GaTO 230 

1000 REM - ENTRADA DE LAS COCEDENADAS DEL FUNTO P. A TRANSFORMAR - 
1010 PRINT 

1020 FRINT "INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE DESEA TRANSFORMAR"; 
1030 INPUT Xx0,YO,ZO 

1040 FRINTIRETUEN 

1250 REM - SALIDA DEL RESULTADO - 

1060 FRINT 

1970 PRINT 

1080 PRINT "EL HOMOLCGO DEL PUNTO DADO ES F”* ("5X33"."53133","32353")" 
1090 RETURN 

1200 REM - TRASLACION EN EL ESPACIO - 

1210 PRINT "INTRODUZCA LAS COORDENADAS (V1,V2,V3) DEL VECTOR GUIA”; 
12720 INPUT V1,V2,V3 

1230 Xx3=XC+V1 

1240 YI=Y0+U2 

1250 23=20+Y3 

260 PRINT 

124 RETURN 

¿79 REH - SIMETRIA CENTRAL EN EL ESPACIO - 

1220 PRINT "INTRODUZCA LAS COORDENADAS DEL CENTRO DE SIMETRIA”; 
12920 INPUT X2,Y2,Z2 

1300 X3=2XX2-X0 

1710 YI3=2*VY2-YO 

1320 23=2%*22-20 

1330 PRINWT 

1330 RETURN 

13530 REM - SIMETRIA AXIAL EN EL ESPACIO - 

1360 PRINT "INTRODUZCA LAS COORD. DEL VECTOR DIRECTOR DEL EJE DE SIMETRIA” 
1370 INPUT Ul,UZ,UZ 

1330 PRINT 

1390 FPRINT "INTRODUZCA LAS COURDENADAS DE UN PUNTO DEL EJE DE SIMETRIA" 
13400 INFUT Xx1,Y1,2Z 

1310 M=(X0-x1)XU1IL+ (YO-W1? XU2+ (20-Z1)XU 

1420 N=O0L1XU1+UZRAUZ+HIXANIS 

19430 x3=2%*X1-XO+2%XMXU1/N 

14940 VI=2XY1-YO+2XMXUZ/N 

1450 2Z3=2X21-ZO+2%*MXU3/N 

13960 PRIMT 

13470 RETURN 

123% REM - SIMETRIA ESPECULAR EN EL ESPACIO - 

1490 PRINT "SEA EL FLANO DE SIMETRIA DE ECUACION : AX + BY +4 CZ + D = 0” 
1500 PRINT "INTRODUZCA LOS COEFICIENTES A,B,C.,D"; 

1510 TNPUT A,BE,C,D 

1520 M=AXA+B*XB+CXC 

1530 N=AXXO+BXYO+CXAZO+D 

15390 X3=X0-ZXAXN/m 

1550 Y3=YO0-2XBXN/M 

1560 Z3=Z0-2XCXN/M 

1570 PRINT 

1580 RETURN 

1590 REM - GIRO RESPECTO A UN EJE QUE PASA POR EL ORIGEN - 

1£00 PRINT "INTRODUZCA LAS CORDENADAS DEL VECTOR DIRECTOR DEL EJE"; 
1610 INPUT V1,V2,V3 

1620 M=SQR(V1XV1+UZXUVZ+U3XUVZ) 

1630 W1=V1/mM 

1640 W2=UV2/M 

1650 W3=U3/Mm 

1560 PRINT 

1670 FRINT "INTRODUZCA EL ANGULO DE GIRO EN RADIANES”"; 

1680 INPUT R 


314 SEMEJANZA EN EL ESPACIO 


1590 T=1-COS(R) 

1700 X3=(TXWIXW1+COS(R))XXO+ (TWIXWZ+WIXSIN(R))XYO+ (TEWIXWI-W2ZXSIN(R))XZO 
1710 Y3=(TAW1XW2-W3XSIN(R))XX0+ (TXW2XWZ+COS(R))XYO+ (TXW2ZXWZ+WIXSIN(R))XZO 
1720 23=1(TWIXWI+WZXSINI(R))XXO+ (TIWZXW -WIXSIN(R))XYO+ (TEWIXWI+COSCUR)IXZO 
230 PRINT 

1740 RETURN 

1750 REM - HOMOTECIA EN EL ESPACIO - 

1760 PRINT "INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA"; 

1770 INPUT C1,C2,C3 

1720 FRINT 

1770 PRINT "INTRODUZCA LA RAZON DE HOMOTECIA”; 

1300 INPUT K 

1810 X3=C1X(1-K)+KXXO 

13520 Y3=C2ZX(1-K)+KXYO 

13830 Z3=C3X(1-K)+KxZO 

1240 PRINT 

1850 RETURN 

1360 XO=xX3 

1870 YO=Y3 

1889 20=23 

1390 RETURN 

1900 END 


ejercicios resueltos: 


AA el homólogo del punto (2,3,0) en una semejenza en el es- 
pacio,que se obtiene como producto de una homotecia de centro C(-1,5,2) 


y razón k = 3 por una simetría axial de eje e cuya ecuación es: 


2 5 3 


SOLUCION: 


ESTE PROGRAMA PERMITE CALCULAR LO SIGUIENTE : 


1.- TRASLACION POR HOMOTECIA 

Z2.- HOMOTECIA POR TRASLACION 

3. SIMETRIA CENTRAL POR HOMOTECIA 

4.- HOMOTECIA POR SIMETRIA CENTRAL 

S.- SIMETRIA AXIAL POR HOMOTECIA 

6.- HOMITECIA POR SIMETRIA AXIAL 

7,- SIMETRIA ESPECULAR POR HOMOTECIA 

6. - HOMOTECIA POR SIMETRIA ESPECULAR 

7.- GIRO DE EJE QUE PASA POR EL ORIGEN POR HOMOTECIA 
10.-HOMOTECIA POR GIRO DE EJE QUE PASA POR EL ORIGEN 


SEG'IN EL MOVIMIENTO DESEADO, PULSE EL NUMERO QUE LE PRECEDE? 6 


INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE DESEA TRANSFORMAR? 2 3 10] 


INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA?-1 5 2 


INTRODUZCA LA RAZON DE HOMOTECIA? 3 
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INTRODUZCA LAS COORD. DEL VECTOR DIRECTOR DEL EJE DE SIMETRIA 
+2 5 3 


INTRODUZCA LAS COORDENADAS DE UN PUNTO DEL EJE DE SIMETRIA 
70 -1 1 


EL HOMOLOGO DEL PUNTO DADO ES P”? (-7.8947368 ,-.73684211 , 6.1578947 ) 


ARO el transformado del punto P(2,-1,5) en una semejanza que 
se obtiene,como producto de una homotecia de centro C(0,8,-1) y razón 
k = 3 por una simetría central de centro S(1,2,3). 


SOLUCION: 


SEGUN EL MOVIMIENTO DESEADO, PULSE EL NUMERO QUE LE PRECEDE? 4 


INTRODUZCA LAS COORDENADAS DEL PUNTO P QUE DESEA TRANSFORMAR? 2 =4 
5 
INTRODUZCA LAS COORDENADAS DEL CENTRO DE HOMOTECIA? O 8 -1 


INTRODUZCA LA RAZON DE HOMOTECIA? 3 


INTRODUZCA LAS COORDENADAS DEL CENTRO DE SIMETRIA? 1 2 3 


EL HOMOLOGO DEL PUNTO DADO ES P”? (-94 , 23 .-11 ) 


11 


ORDENACION ALFABETICA DE NOMBRES 


e . / 
introducción: 

Este programa permite ordenar alfabéticamente una lista de nombres. 

El método seguido es el de intercambio que consiste en comparar 
(linea 220) dos nombres, de manera que si están bien ordenados se pasa al 
siguiente nombre y en caso contrario se realiza un intercambio con una va 
riable auxiliar X$. 

En el programa inicial es necesario saber cuantos nombres queremos 
ordenar, con ese valor se dimensiona la variable Af. 

En caso de que no sepamos en número de nombres a ordenar, se ofre- 
ce, a continuación del programa, otra alternativa, para la cual, suponemos 
que el numero de nombres a ordenar es menor o igual a 200. En caso contra- 


rio se varía la instrucción 110, con el valor deseado. 


listado del programa: 


10 REM IRRRRRRRRRRRRORRRRRRORRRORRRRRORRRRRRROORROOROARARRRORODEARORAROARDORDORDEOAREORDEOAREARREE 


20 REM 

30 REM ORDENACION ALFABETICA 
40 REM 
SO REM DE UNA LISTA DE NOMBRES 
60 REM 


70 REM IRRRICRRIOIAOIRRIRIRIRIIAIROIRRIRIRIRIROIRRRIRRRIRIRRIRIRRRIRIRIRRIRIRRIRIRRIRIRRIRRRIRA: 
100 PRINT 

110 PRINT "CUANTOS NOMBRES DESEA ALFABETIZAR  N ="; 

120 INPUT N 

130 PRINT 

140 DIM AS(N) : 

150 PRINT "INTRODUZCA CADA NOMBRE, EN CUALQUIER ORDEN Y PULSE <ENTER>" 
160 PRINT 

170 FOR I=1 TO N 

180 INPUT A$(1) 

190 NEXT 1 

200 FOR J=1 TO N-1 

210 FOR K=J+1 TON 

220 IF AS$(J)<A$(K) THEN 270 

230 X$=A$(J) 

240 A$S(J)=A$(K) 

250 A$(K)=X$ 
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260 NEXT K 

270 NEXT J 

230 PRINT 

270 PRINT "EL ORDEN ALFABETICO DE LOS NOMBRES DADOS ES EL SIGUIENTE :" 
300 PRINT 

310 FOR I=1 TO N 

320 PRINT 13".- ";As(I) 

330 NEXT I 

340 END 


110 DIM A$(200) 

120 PRINT "INTRODUZCA CADA NOMBRE, EN CUALQUIER ORDEN Y PULSE <ENTER>" 
130 PRINT "PARA ACABAR INTRODUZCA ZZZ" 

140 PRINT 

150 I=1 

160 INPUT A$(1) 

170 IF A$(I)="222" THEN GOTO 190 

120 I=I+1:G0TO160 

190 N=I 


ejercicios resueltos: 


Lorenz alfabeticamente los siguientes nombres: Juan Gomez Garcia, 
Pedro Martinez Sanchez, Amalia Perez Pradera, Crescencio Turegano Pelaez, 


Maria Dolores Fuertes Isasi, Juan Diaz Cardiel, Julio Cerezuelo Gomez, Jo 


se Cabezas Sanz. 
SOLUCION: 


INTRODUZCA CADA NOMBRE. EN CUALQUIER ORDEN, Y PULSE <ENTER> 
PARA ACABAR INTRODUZCA 22 


?JUAN GOMEZ GARCIA 

PEDRO MARTINEZ SANCHEZ 
AMALIA PEREZ PRADERA 
?CRESCENCIO TUREGANO PELAEZ 
PARISTONICA GUTIERREZ ALVAREZ 
?MARIA DOLORES FUERTES ISASI 
JUAN DIAZ CARDIEL 

?2JULIO CEREZUELO GOMEZ 

?JOSE CABEZAS SANZ 


277 


"£éá 


EL ORDEN ALFABETICO DE LOS NOMBRES DADOS ES EL SIGUIENTE : 


.7 AMALIA PEREZ PRADERA 

.7 ARISTONICA GUTIERREZ ALVAREZ 
.- CRESCENCIO TUREGANO PELAEZ 
.7 JOSE CABEZAS SANZ 

JUAN DIAZ CARDIEL 

+. JUAN GOMEZ GARCIA 

+. JULIO CEREZUELO GOMEZ 

.7 MARIA DOLORES FUERTES ISASI 
+7 PEDRO MARTINEZ SANCHEZ 


0 .- 222 


- 001-005 dN > 
I 


ORDENACION ASCENDENTE DE NUMEROS 


introducción: 


Este programa permite ordenar de menor a mayor una lista de núme- 
ros. En esencia, el programa es ideftico al anterior sin más, que tener 
en cuenta que la variable ahora es númerica, por tanto la representare- 
mos por A(1I). 

A continuación del programa inicial se ofrece otra alternativa a 
las lineas 110-190, para el caso en que no sepamos cuantos números quere 
mos ordenar. En este caso, hemos supuesto que los números a ordenar no 


exceden de 200, en caso contrario variese la instrucción 110. 


listado del programa: 


10 REM RR IIOIIIIIOIIA 
20 REM 


30 REM ORDENACION ASCENDENTE 

40 REM : 

50 REM DE UNA LISTA DE NUMEROS 

60 REM 

70 REM IRRRRRRRRRROOORORDAROARAOROARDAORORDAOARORORDEORDORDEORDEAREOREORERRORIRDRRIROIRIOOI IAE 
100 PRINT 


110 PRINT "CUANTOS NUMEROS DESEA ORDENAR M ="; 

120 INPUT N 

130 PRINT 

140 DIM A(N) 

150 PRINT "INTRODUZCA CADA NUMERO, EN CUALQUIER ORDEN, Y PULSE <ENTER>" 
160 PRINT 

170 FOR I=1i TO N 

180 INPUT A(I) 

190 NEXT I 

200 FOR J=1 TO N-1 

210 FOR K=J+1 TO N 

220 IF A(J)<A(K) THEN 260 

230 X=A(J) 

240 A(J)=A(K) 

250 A(K)=X 

260 NEXT K 

270 NEXT J 

280 PRINT 

270 PRINT "EL ORDEN ASCENDENTE DE LOS NUMEROS DADOS ES EL SIGUIENTE :" 
300 PRINT 
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310 FOR I=1 TO N 
320 PRINT A(I) 
330 NEXT I 

340 END 


110 DIM A(200) 

120 PRINT "INTRODUZCA CADA NUMERO, EN CUALQUIER CRDEN Y FULSE «(ENTER:S" 
130 PRINT "PARA ACABAR PULSE 9000" 

140 PRINT 

150 I=1 

160 INPUT A(I) 

170 1F A(1I)=0000 THEN GOTO 190 

180 J=I+1:G0TO160O 

190 N=]I 


ejercicios resueltos: 


nen de menor a mayor los siguientes números: 38473535,38381319, 
46638972,34251878,31988989,13140483,49989696,42559598,98995241,23884926, 
13784279,99428775. 

SOLUCION: 
CUANTOS NUMEROS DESEA CRDENAR Mo=7? 12 


INTRODUZCA CADA MNUMERC, EN CUALQUIER ORDEN, Y FULSE «ENTER: 


eN] 


384235735 
38381310 
466328972 
342518782 
21982989 

3140483 
499239696 
42359598 
5397935241 
23884926 
13734279 
99428775 


3vUY 


3313109)“ 


J3 


| 


EL ORDEN ASCENDENTE DE LOS NUMEROS DADOS ES El SIGUIENTE 


13140483 
13784279 
23284926 
31982989 
34251878 
39381319 
38473535 
942559598 
466389732 
199896946 
2937975241 
79428775 


bibliografía 


AGUADO, R. y otros., "BASIC básico, Curso de programación", 1983. 
AGUADO, R. y otros., "Programas comentados de BASIC básico", 1983. 


BAJPAI, A.C, "Statistical Methods for Scientists and Engineers", J.Wiley£ 
Sons, 1978. 


BASS, J., "Ejercicios de Matemáticas", Toray-Masson S.A., Barcelona 1970. 


BECKETT, R. £€ HURT, J., "Numerical Calculations and Algorithms", Mc Graw- 
Hill, New York, 1967. 


BEYER, W.H., "Standard Mathematical Tables", CRC Press, 1976. 


CARNAHAN, B. £ WILKES, J.O., "Aplied Numerical Methods", University of Mi 
chigan, 1978. 


FARRANDO, R., "109 Programas para ordenadores personales y calculadoras", 
Marcombo, Barcelona, 1983. 


GALLEGO, A.E. y Ootros., "Informática BASIC. Aplicaciones", Ediciones S.M., 
Madrid, 1983. 


GOTTFRIED, B.S., "Programación BASIC", Mc Graw-Hill, Mexico, 1982. 
HACQUES, G., "Mathematiques pour 1'informatique", A. Colin, Paris, 1971. 
HAUT, H., "Mathematiques et statistiques", Editions P.S.I., 1983. - 


HUBIN, W.N., "BASIC Programming for Scientists and Engineers", Prentice- 
Hall Inc., Englewood Cliffs, 1978. 


KEMENY, J.G. £ KURTZ, T.E., "Programación BASIC", Compañia Editorial Conti 
nental, Mexico, 1983. 


KUO, S., "Computer Applications of Numerical Methods", Addison-Wesley, Rea 
ding MA, 1972. 


NOWAKOWSKI, C., "Methodes de Calcul Numerique" tome I, Editions P.S.Il1., 
1984. 


OLABARRIETA, L., "Geometría y Trigonometría", Bilbao, 1957. 


PEREZ-BEATO, M., "Manual-Formulario de Geometría Analítica", Saeta, Madrid 
1950. 


POOLE, L. £ BORCHERS, M., "Some Common BASIC Programs", Adam Osborne £ As 
sociates, Berkeley CA, 1977. 


RUCKDESCHEL, F.R., "BASIC Scientific Subroutines, Vol 1 y 2". BYTE and Mc 
Graw-Hill, Peterborough, NH, 1981. 


SHOUP, T.E.; "A Practical Guide to Computer Methods for Engineers", Prenti 
ce-Hall, 1979. 


STOER, J. € BULIRSCH., "Introduction to Numerical Analysis", Springer-Ver- 
lag, 1980. 


VIZMANOS, J.R. y ANZOLA, M. "Matemáticas de C.O.U. Tomos 1 y 2", Madrid 
1978. 


VIZMANOS, J.R. y ANZOLA, M., PRIMO, A., "Funciones 1, 2, y 3", Edicio- 
nes S.M., Madrid, 1981. 


VIZMANOS, J.R. y CRESPO, D., "Problemas resueltos de variable compleja", 
Madrid, 1977. 


índice de programas 


I) ALGEBRA 
1.- SISTEMAS DE NUMERACION 


1.1 Cambio de base de sistema de numeración 


1.2 Operaciones en cualquier sistema de numeración ........... 12 
ECUACIONES DIOFANTICAS 
2.1 Ecuaciones diofánticas del tipo lineal: Ax E BEIO rt 15 
2.2 Ecuaciones diofánticas del tipo: E > y? SS O AN ES 18 
2.3 Ecuaciones diofánticas del tipo pitagÓricCO .........o..... 20 
2.3.1 Números pitagóricos consecutivoS .......o.ooooooooooo 22 
2:02 2, TOLNAS: PDICAgÓOricaAN 2. rica coda dao ds 24 
DIVISIBILIDAD 
3.1 Descomposición de un número en factores primoS ........... 26 
3.2 M.C.D. y M:C::M.+ de dos NÚMETOS: Mela aia aa 28 
3.3 -M:C.D. Y M.C.Mo. dE ELFOS NOÚMOTOS seur E 30 
3,4 .LISCta. de NÚMEFOS: DEMOS srovin de IATA 32 
3.5 Formación ordenada de los divisores de un númerO ......... 34 
3.6 Número de divisores de un número (suma y producto) ....... 36 
341 "NÚMELOS. DOFLECTOS: PALOS ii RARA 39 
3:48: “NÚMELCOS AMÍDOS ias as AAA REIR 41 
3:59; "Números. de MersSenle isiscciosaies a AAA 43 
FLO: NÚmMeros: de POYMAÉ arcos is aa ESE E 45 
3.11 Múltiplos de un número K ...oooooooooooooroooccooooooos» 47 
3:12 Múáltiplos de K entre dos dados: .....o.mm.msorioinas sacras 49 
3.13 Múltiplos comunes de dos NÚMBrTOS «onsosesnornsosraccr sra. os 51 
NUMEROS CONGRUENTES 
4.1 Clases de restos módulo M .....oocooooooooooooooonoooooo.»» 53 
4.2 Exponente de P en M (Regla de Legendre) ....o.ooooooo.... 56 
453. Restos ¡potenciales miciorocas i a 59 
4.4 Cálculo de la última cifra de una potencia ............... 62 
4.5 Cálculo del resto de dividir una potencia por M .......... 64 


456. ¿RESTOS CUAdrTAEÍCOS ana a es ¿aia 66 


COMBINATORIA 


5.1 Factorial de UN NÚMETO ios cr a 
5.2 Número de cifras del factorial de un númerO .............. 
5.3 Factorial de un número con todas sus CifraS .............. 
5.4 Combinaciones sin repetición ...oooooooooocococococncoconooomoooo. 
Sao. Variaciones sin repetición: +00 iia AEREA A 
5.6 Formación ordenada de las variaciones sin repetición ..... 
5.7 Permutaciones sin repeticiÓn ....o.o.oooooooooooooooooooooo». 
5.8 Formación ordenada de las permutaciones sin repetición ... 
5.9 .Combinatoria ¡sin. repetición. ceci iran a 
5.10: Combinaciones. con Tepetición mm... icons ea 
5.11 Variaciones con repeticiÓnN ....o.ooooooooooooooooooooo.o.. die 
5.12 Formación ordenada de las variaciones con repetición ..... 
5.13 Permutaciones con repeticiÓn ....ooooooooooooooooooooooo.. 
5:14. Triángulo de: Tartaglid. escocia as ae aaa 
15: Binomio. de. NewtoN:. cede. ee as dia e a Ses a aaa 
POLINOMIOS 

6,1. . Valor fúmérico de UN POliínomio rexrsriacuidasiic 
6.2 Suma y diferencia de polinomioS ....o.oooooooooooooooooooo.. 
6.3 Producto de un escalar por un polinomi0 ........oooo.oo.... 
6.4 Producto de un polinomio por el binomio (x + a) .......... 
6.5 Producto de polinomios ..... a a iS 
66. «Regla de RUEÍini mirta raices a oia 
67. Cociente de. POLINnOMÍOS: ¿exorcista 


ESPACIOS VECTORIALES 


disL 
7.2 


Coordenadas de un vector respecto de una base ............ 


Cambio 7de.. Dase. 0. dais as a 


MATRICES Y DETERMINANTES 


8.1 
8.2 
8.3 
8.4 
8.5 
8.6 
8.7 
8.8 
8.9 


8.10 
8.11 
8.12 
8.13 


Suma de las filas y las columnas de una matriz ........... 
Matriz: transpuesta: ula cacas iaa are je csi 
Suma y diferencia de matricCesS ....o.oooooooooooooooooooooo.o. 
Producto de un escalar por una matriZ ....o.ooooooooo...... 
PrOdúcto: de Matrices: medccccacco  I A 
Potencia de una matriZ2 ........v“ovco... sa 
Determinante de una matriz cuadrada +++.ooo.oooooooooo ooo». 
¿E EA A 


Descomposición de una matriz como suma de dos matrices una 
simétrica y Otra hemisimetrita 0. e 
Resolución de sistemas de ecuaciones lineales ............ 
Ecuación característica de una matriZ ........ooooooo..... 
valores. propios- de: Una MatriZ2 uscar is 


Vectores: :propios.de Una. MatriZ: 2ercosnss casio asis 


II) GEOMETRIA 


Li 


GEOMETRIA ELEMENTAL 


1.1 Areas de triángulos y cuadriláteroS .....ooooooooooooooo... 190 
1.2 Longitudes y áreas en la circunferencia ....o.ocorcion»:..os. 192 
1.3 Relaciones métricas en el triángulo ....ooooooooooooo..... 195 
1.4 Polígonos regulares: ángulos y diagonaleS ........oo.o.o..... 199 
1.5 Polígonos regulares: área en función del lado ............ 201 
1.6 Polígonos regulares: área en función del radio de la circun 
ESrencia: CIECONSOTÍES mera AIRES 203 
1.7 Areas y volúmenes de los poliedros regulares ............. 205 
Areas y volúmenes de cuerpos geométricoOS +.+................ 208 
PLANO AFIN 
2.1 Operaciones con vectores en el plano afín ................ 212 
2.2 Cambio de sistema de referencia en el plano afín ......... 215 
2.3 Determinación de rectas en el plano afíÍN ....oooooooooo.... 217 
2.4 Incidencia , paralelismo e intersección en el plano afín . 221 


PLANO AFIN EUCLIDEO 
JSL > -CONVEESION de AAQUIOÉ: iii AAA ERA 224 
3.2 Operaciones con vectores en el plano afín euclideo ....... 226 


3.3 Angulos y bisectrices de rectas en el plano afín euclideo 229 


3.4 Distancias en el plano afín euclide0 ....ooooooooooooooo... 232 
39. Abeás en el plano afín. cuciides .isrcrisrs sed a A 235 
3.6 Cálculo de puntos notables en un triángulo ............... 237 
3.7 Resolución de triángulos rectánguloS +... ....o.ooooooooooo.o.. 241 
3.8 Resolucion de triángulos cualesquiera .....o.ooooooooooo.o... 244 
CONICAS 

did. OTEUS CONOCÍA: ai RARA AAA ANA 248 
4.2 Potencia de un punto respecto de una circunferencia ...... 252 
dd. ¡ELIDSO acosada a a 255 
4d: TPEYrbOLA) did RAS A a .258 
AUS, PArabola airada AAA RAEE A AAA 261 
4.6 Clasificación y redución de CÓNiCaS ....ooooooooooooooo.... 264 


TRANSFORMACIONES EN EL PLANO 
5.1 Movimientos en el plan0 ....o.oooooooooooooooooooooonooo.»o 267 
5.2 Homotecia en el planN0 .....oooooooooooooonnnoooooooooooo.» 270 


5.3% Semejanza en el planN0 ....ooooooooooooooooooooooocooonoo.» 273 


6.- ESPACIO AFIN 
6.1 (Operaciones con vectores en el espacio afín ......... eros” 2 
6.2 Cambio de sistema de referencia en el espacio afín ....... 280 
6.3 Determinación de rectas en el espacio afíÍN ......ooo...... 283 
6.4 Determinación de planos en el espacio afín ........... mesr “285 


6.5 Incidencia, paralelismo e intersección en el espacio afín. 288 


7.- ESPACIO AFIN EUCLIDEO 
7.1 Operaciones con vectores en el espacio afín euclideo ..... 292 


7.2 Angulos en el espacio afín euclideo ...ooooooooooo.o... ema. 295 
7.3 Distancias en el espacio afin euclide0 ...ooooooooooooo...o. 298 
7.4 Areas y volúmenes en el espacio afín euclideo ........ att 2302 


8.- TRANSFORMACIONES EN EL ESPACIO 


8.1 Movimientos en el espaci0 ....o.oo.o.... la cada e 305 
8.2 Homotecia en el espacio ......... ale as aras aa ea 308 
8.3 Semejanza en el espacio ............ o ya tara ares e nas IL1 
ANEXO 
1) ORDENACION ALFABETICA DE NOMBRES — .............. EE si 316 


II) (ORDENACION ASCENDENTE DE NUMEROS. .....oooo.... ica . 318 


PROGRAMAS EN BASIC PARA LA RESOLUCION DE PROBLEMAS 


FP - BUP - COU - UNIVERSIDAD 
Autor: J.R. VIZMANOS 


TOMO 2 - ANALISIS MATEMATICO. 
CALCULO DE PROBABILIDADES Y ESTADISTICA. 


ANALISIS MATEMATICO 


1.—- Matemática financiera. 1.1 Interés simple. 1.2 Interés compuesto. 1.3 Tablas de interés compuesto. 
1.4 Anualidades de amortización 1.5 Anualidades de capitalización. 

2.- Sucesiones de números reales. 2.1. Progresiones aritméticas. 2.2 Progresiones geométricas. 2.3 For- 
mación de los términos de una sucesión. 2.4 Sucesión del número e. 2.5 Operaciones con sucesiones. 
2.6 Suma de términos de una sucesión. 2.7 Sucesión de Fibonacci. 

3.- Números complejos. 3.1 Operaciones con números complejos en forma binómica. 3.2 Conversión de 
coordenadas polares a cartesianas. 3.3 Potenciación y radicación de números complejos en forma binó- 
mica. 3.4 Operaciones con números complejos en forma polar. 

4.- Cálculo de las raíces de una ecuación. 4.1 Ecuación algebraica de 2.” grado. 4.2 Búsqueda de raíces: 
Método de bisección. 4.3 Búsqueda de raíces: Método de Newton. 4.4 Búsqueda de raíces: Método de la 
secante. 4.5 Búsqueda de raíces: Método de la regula falsi. 4.6 Búsqueda de raíces: Método de Aitken. 

5.- Funciones reales de variable real. 5.1 Tabulación de una función real de variable real. 5.2 Operaciones 
con funciones reales de variable real. 5.3 Composición de funciones reales de variable real. 5.4 Función 
exponencial. 5.5 Cambio de base logarítmica. 5.6 Función logarítmica. 5.7 Funciones trigonométricas di- 
rectas. 5.8 Funciones trigonométricas inversas. 5.9 Razones trigonométricas de un ángulo dado. 5.10 
Funciones trigonométricas de un ángulo dado. 5.11 Valor de las funciones trigonométricas recíprocas. 
5.12 Funciones hiperbólicas directas. 5.13 Funciones hiperbólicas inversas. 5.14 Razones hiperbólicas 
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una curva en polares. 7.6 Area encerrada por una curva en paramétricas. 7.7 Longitud de un arco de cur- 
va dada en cartesianas. 7.8 Longitud de un arco de curva dada en polares. 7.9 Longitud de un arco de 
curva dada en paramétricas. 7.10 Area de revolución. 7.11 Volumen de revolución. 7.12 Regla de Tchebi- 
cheff. 7.13 Regla de Bode. 7.14 Regla de Gauss. 7.15 Integrales impropias con extremo superior inferior. 

8.- Interpolación. 8.1 Interpolación lineal. 8.2 Interpolación de Lagrange. 


CALCULO DE PROBABILIDADES Y ESTADISTICA 


1.- Generación de números aleatorios. 1.1 Entre O y 1. 1.2 Entre O y 100. 1.3 Que se distribuyen según 
una binomial B(n,p). 1.4 Que se distribuyen según una Poisson P(L). 1.5 Que se distribuyen según una 
normal N(m,s). 

2.-Simulación de experimentos aleatorios. 2.1 Lanzamiento de un dado con recuento de frecuencias. 
2.2 Lanzamiento de dos dados. 2.3 Lanzamientos de tres dados. 2.4 Lanzamiento de una moneda. 2.5 
Lanzamiento de dos monedas. 2.6 Extracciones con reemplazamiento de cartas de una baraja. 2.7 Ex- 
tracciones sin reemplazamiento de cartas de una baraja. 

3.- Estadística descriptiva. 3.1 Medidas de centralización, dispersión y forma de distribuciones unidimen- 
sionales de datos no agrupados. 3.2 Medidas de centralización, dispersión y forma de distribuciones uni- 
dimensionales de datos agrupados. 3.3 Parámetros estadísticos de distribuciones bidimensionales de da- 
tos no agrupados. 3.4 Parámetros estadísticos de distribuciones bidimensionales de datos agrupados. 

4.- Cálculo de probabilidades. 4.1 Probabilidad total. 4.2 Probabilidad Bayesiana. 

5.- Distribuciones unidimensionales discretas. 5.1 Distribución binomial. 5.2 Distribución de Poisson. 
5.3 Distribución hipergeométrica. 

6.- Distribuciones unidimensionales continuas. 6.1 Distribución normal. 6.2 Distribución chi-cuadrado. 
6.3 Distribución t de Student. 6.4 Distribución F de Snedecor. 

7.- Distribuciones bidimensionales continuas. 7.1 Distribución normal de dos variables. 

8.- Regresión y correlación. 8.1 Rectas de regresión. 8.2 Regresión lineal. 8.3 Regresión exponencial. ,, 
8.4 Regresión logarítmica. 8.5 Regresión potencial. 8.6 Regresión polinomial. 
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